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

87,28
87,28
87,09
86,92
87,59
90,72
90,69
90,3
89,55
88,94
88,41
87,82
87,07
86,82
86,4
86,02
85,66
85,32
85
84,67
83,94
82,83
81,95
81,19
80,48
78,86
69,47
68,77
70,06
73,95
75,8
77,79
81,57
83,07
84,34
85,1
85,25
84,26
83,63
86,44
85,3
84,1
83,36
82,48
81,58
80,47
79,34
82,13
81,69
80,7
79,88
79,16
78,38
77,42
76,47
75,46
74,48
78,27
80,7
79,91
78,75
77,78
81,14
81,08
80,03
78,91
78,01
76,9
75,97
81,93
80,27
78,67
77,42
76,16
74,7
76,39
76,04
74,65
73,29
71,79
74,39
74,91
74,54
73,08
72,75
71,32
70,38
70,35
70,01
69,36
67,77
69,26
69,8
68,38
67,62
68,39
66,95
65,21
66,64
63,45
60,66
62,34
60,32
58,64
60,46
58,59
61,87
61,85
67,44
77,06
91,74
93,15
94,15
93,11
91,51
89,96
88,16
86,98
88,03
86,24
84,65
83,23
81,7
80,25
78,8
77,51
76,2
75,04
74
75,49
77,14
76,15
76,27
78,19
76,49
77,31
76,65
74,99
73,51
72,07
70,59
71,96
76,29
74,86
74,93
71,9
71,01
77,47
75,78
76,6
76,07
74,57
73,02
72,65
73,16
71,53
69,78
67,98
69,96
72,16
70,47
68,86
67,37
65,87
72,16
71,34
69,93
68,44
67,16
66,01
67,25
70,91
69,75
68,59
67,48
66,31
64,81
66,58
65,97
64,7
64,7
60,94
59,08
58,42
57,77
57,11
53,31
49,96
49,4
48,84
48,3
47,74
47,24
46,76
46,29
48,9
49,23
48,53
48,03
54,34
53,79
53,24
52,96
52,17
51,7
58,55
78,2
77,03
76,19
77,15
75,87
95,47
109,67
112,28
112,01
107,93
105,96
105,06
102,98
102,2
105,23
101,85
99,89
96,23
94,76
91,51
91,63
91,54
85,23
87,83
87,38
84,44
85,19
84,03
86,73
102,52
104,45
106,98
107,02
99,26
94,45
113,44
157,33
147,38
171,89
171,95
132,71
126,02
121,18
115,45
110,48
117,85
117,63
124,65
109,59
111,27
99,78
98,21
99,2
97,97
89,55
87,91
93,34
94,42
93,2
90,29
91,46
89,98
88,35
88,41
82,44
79,89
75,69
75,66
84,5
96,73
87,48
82,39
83,48
79,31
78,16
72,77
72,45
68,46
67,62
68,76
70,07
68,55
65,3
58,96
59,17
62,37
66,28
55,62
55,23
55,85
56,75
50,89
53,88
52,95
55,08
53,61
58,78
61,85
55,91
53,32
46,41
44,57
50
50
53,36
46,23
50,45
49,07
45,85
48,45
49,96
46,53
50,51
47,58
48,05
46,84
47,67
49,16
55,54
55,82
58,22
56,19
57,77
63,19
54,76
55,74
62,54
61,39
69,6
79,23
80
93,68
107,63
100,18
97,3
90,45
80,64
80,58
75,82
85,59
89,35
89,42
104,73
95,32
89,27
90,44
86,97
79,98
81,22
87,35
83,64
82,22
94,4
102,18

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')
}