• QR Code (size=2)
• QR Code (size=3)
• QR Code (size=4)
• QR Code (size=5)
• QR Code (size=6)

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 <- '4'
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)
bitmap(file='test1.png')
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()
if(is.numeric(x[1])) {
myhist
n <- length(x)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('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='mytable.tab')
} else {
mytab
reltab <- mytab / sum(mytab)
n <- length(mytab)
load(file='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='mytable1.tab')
}