R version 3.0.2 (2013-09-25) -- "Frisbee Sailing"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- c(71.97
+ ,72.32
+ ,74.07
+ ,77.95
+ ,81.75
+ ,80.81
+ ,74.1
+ ,71.37
+ ,75.21
+ ,76.9
+ ,74.44
+ ,74.76
+ ,76.23
+ ,76.97
+ ,78.4
+ ,78.6
+ ,80.08
+ ,81.12
+ ,80.31
+ ,84.59
+ ,81.34
+ ,80.95
+ ,80.48
+ ,75.26
+ ,76.32
+ ,78.92
+ ,80.47
+ ,83.14
+ ,85.42
+ ,81.53
+ ,87.31
+ ,86.01
+ ,85.1
+ ,79.91
+ ,78.6
+ ,78.6
+ ,79.37
+ ,82.89
+ ,84.43
+ ,85.32
+ ,87.71
+ ,84.68
+ ,80.62
+ ,84.79
+ ,85.49
+ ,81.68
+ ,77.69
+ ,78.31
+ ,79.18
+ ,80.91
+ ,83.91
+ ,86.3
+ ,89.76
+ ,85.11
+ ,83.81
+ ,85.36
+ ,85.89
+ ,82.59
+ ,80.87
+ ,80.27
+ ,81.36
+ ,84.81
+ ,90.3
+ ,95.43
+ ,97.59
+ ,97.8
+ ,99.48
+ ,97.52
+ ,104.39
+ ,97.74
+ ,91.37
+ ,92.42
+ ,96.9
+ ,101.58
+ ,105.46
+ ,110.06
+ ,107.9
+ ,102.87
+ ,96.28
+ ,98.59
+ ,103.22
+ ,98.6
+ ,91.79
+ ,93.83
+ ,95.17
+ ,95.19
+ ,99.44
+ ,109.18
+ ,109.15
+ ,109.72
+ ,108.41
+ ,102.96
+ ,107.64
+ ,97.28
+ ,97.25
+ ,91.84
+ ,94.12
+ ,97.86
+ ,98.83
+ ,102.29
+ ,104.49
+ ,102.11
+ ,102.14
+ ,101.28
+ ,101.21
+ ,94.2
+ ,88.47
+ ,88.08
+ ,88.02
+ ,92.95
+ ,97.05
+ ,101.44
+ ,100.34
+ ,99.98
+ ,94.17
+ ,94.54
+ ,95.12
+ ,98.04
+ ,93.72
+ ,93.83
+ ,93.03
+ ,95.81
+ ,99.1
+ ,100.12
+ ,100.67
+ ,103.87
+ ,102.39
+ ,107.21
+ ,105.71
+ ,99.79
+ ,96.12
+ ,96.17
+ ,97.23
+ ,98.08
+ ,99.84
+ ,99.72
+ ,99.92
+ ,102.7
+ ,102.06
+ ,102.36
+ ,102.43
+ ,100.6
+ ,98.4
+ ,98.61
+ ,103.03
+ ,104.7
+ ,107.45
+ ,109.67
+ ,110.54
+ ,112.05
+ ,113.19
+ ,114.2
+ ,112.56
+ ,107.36
+ ,103.93
+ ,103.83
+ ,104.74
+ ,107.5
+ ,109.53
+ ,109.42
+ ,108.6
+ ,110.72
+ ,105.1
+ ,105.19
+ ,102.55
+ ,101.25
+ ,101.56
+ ,101.62
+ ,101.7
+ ,102.94
+ ,104.37
+ ,106.93
+ ,107.82
+ ,110.83
+ ,106.86
+ ,109.46
+ ,108.8
+ ,108.69
+ ,107.77
+ ,108.64
+ ,108.5
+ ,113.84
+ ,114.59
+ ,116.27
+ ,113.63
+ ,112.29
+ ,110.31
+ ,108.47
+ ,110.67
+ ,109.1
+ ,107.02
+ ,108.12
+ ,106.69
+ ,109.87
+ ,110.82
+ ,114.14
+ ,113.31
+ ,115.16
+ ,111.06
+ ,111.13
+ ,115.96
+ ,117.57
+ ,114.69
+ ,119.42
+ ,118.4
+ ,123.32
+ ,123.39
+ ,127.04
+ ,129.35
+ ,127.12
+ ,122.1
+ ,120.22
+ ,121.53
+ ,119.01
+ ,114.27
+ ,114.46)
> par4 = 'Unknown'
> par3 = 'FALSE'
> par2 = 'grey'
> par1 = '5'
> xlab = 'euro'
> main = 'Histogram'
> par4 <- 'Unknown'
> par3 <- 'FALSE'
> par2 <- 'grey'
> par1 <- '5'
> #'GNU S' R Code compiled by R2WASP v. 1.2.291 ()
> #Author: root
> #To cite this work: Wessa P., (2012), Histogram (v1.0.12) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_histogram.wasp/
> #Source of accompanying publication: 
> #
> par1 <- as.numeric(par1)
> if (par3 == 'TRUE') par3 <- TRUE
> if (par3 == 'FALSE') par3 <- FALSE
> if (par4 == 'Unknown') par1 <- as.numeric(par1)
> if (par4 == 'Interval/Ratio') par1 <- as.numeric(par1)
> if (par4 == '3-point Likert') par1 <- c(1:3 - 0.5, 3.5)
> if (par4 == '4-point Likert') par1 <- c(1:4 - 0.5, 4.5)
> if (par4 == '5-point Likert') par1 <- c(1:5 - 0.5, 5.5)
> if (par4 == '6-point Likert') par1 <- c(1:6 - 0.5, 6.5)
> if (par4 == '7-point Likert') par1 <- c(1:7 - 0.5, 7.5)
> if (par4 == '8-point Likert') par1 <- c(1:8 - 0.5, 8.5)
> if (par4 == '9-point Likert') par1 <- c(1:9 - 0.5, 9.5)
> if (par4 == '10-point Likert') par1 <- c(1:10 - 0.5, 10.5)
> postscript(file="/var/wessaorg/rcomp/tmp/1qrih1391975596.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> if(is.numeric(x[1])) {
+ if (is.na(par1)) {
+ myhist<-hist(x,col=par2,main=main,xlab=xlab,right=par3)
+ } else {
+ if (par1 < 0) par1 <- 3
+ if (par1 > 50) par1 <- 50
+ myhist<-hist(x,breaks=par1,col=par2,main=main,xlab=xlab,right=par3)
+ }
+ } else {
+ plot(mytab <- table(x),col=par2,main='Frequency Plot',xlab=xlab,ylab='Absolute Frequency')
+ }
> dev.off()
null device 
          1 
> if(is.numeric(x[1])) {
+ myhist
+ n <- length(x)
+ 
+ #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
+ load(file="/var/wessaorg/rcomp/createtable")
+ 
+ a<-table.start()
+ a<-table.row.start(a)
+ a<-table.element(a,hyperlink('http://www.xycoon.com/histogram.htm','Frequency Table (Histogram)',''),6,TRUE)
+ a<-table.row.end(a)
+ a<-table.row.start(a)
+ a<-table.element(a,'Bins',header=TRUE)
+ a<-table.element(a,'Midpoint',header=TRUE)
+ a<-table.element(a,'Abs. Frequency',header=TRUE)
+ a<-table.element(a,'Rel. Frequency',header=TRUE)
+ a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE)
+ a<-table.element(a,'Density',header=TRUE)
+ a<-table.row.end(a)
+ crf <- 0
+ if (par3 == FALSE) mybracket <- '[' else mybracket <- ']'
+ mynumrows <- (length(myhist$breaks)-1)
+ for (i in 1:mynumrows) {
+ a<-table.row.start(a)
+ if (i == 1)
+ dum <- paste('[',myhist$breaks[i],sep='')
+ else
+ dum <- paste(mybracket,myhist$breaks[i],sep='')
+ dum <- paste(dum,myhist$breaks[i+1],sep=',')
+ if (i==mynumrows)
+ dum <- paste(dum,']',sep='')
+ else
+ dum <- paste(dum,mybracket,sep='')
+ a<-table.element(a,dum,header=TRUE)
+ a<-table.element(a,myhist$mids[i])
+ a<-table.element(a,myhist$counts[i])
+ rf <- myhist$counts[i]/n
+ crf <- crf + rf
+ a<-table.element(a,round(rf,6))
+ a<-table.element(a,round(crf,6))
+ a<-table.element(a,round(myhist$density[i],6))
+ a<-table.row.end(a)
+ }
+ a<-table.end(a)
+ table.save(a,file="/var/wessaorg/rcomp/tmp/2pgri1391975596.tab") 
+ } else {
+ mytab
+ reltab <- mytab / sum(mytab)
+ n <- length(mytab)
+ 
+ #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
+ load(file="/var/wessaorg/rcomp/createtable")
+ 
+ a<-table.start()
+ a<-table.row.start(a)
+ a<-table.element(a,'Frequency Table (Categorical Data)',3,TRUE)
+ a<-table.row.end(a)
+ a<-table.row.start(a)
+ a<-table.element(a,'Category',header=TRUE)
+ a<-table.element(a,'Abs. Frequency',header=TRUE)
+ a<-table.element(a,'Rel. Frequency',header=TRUE)
+ a<-table.row.end(a)
+ for (i in 1:n) {
+ a<-table.row.start(a)
+ a<-table.element(a,labels(mytab)$x[i],header=TRUE)
+ a<-table.element(a,mytab[i])
+ a<-table.element(a,round(reltab[i],4))
+ a<-table.row.end(a)
+ }
+ a<-table.end(a)
+ table.save(a,file="/var/wessaorg/rcomp/tmp/3asqu1391975596.tab") 
+ }
> 
> try(system("convert tmp/1qrih1391975596.ps tmp/1qrih1391975596.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  1.162   0.338   1.496