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

10,6
11,2
10
11
12,15
10,65
10,5
10,45
10,95
11,25
11,15
11,25
10,7
11,75
12,2
11,85
10,4
11
12,75
11,95
10,55
10,5
10,95
10,9
9,9
11,1
11,65
12,25
10,3
11,25
12,1
11,75
11,4
12,55
11,3
10,5
11,7
10,85
12
11,75
12,25
11,8
11,35
13,5
10,9
11,4
10,55
11,4
10,65
12,2
11,4
10,75
11,7
8,3
11,45
12,15
11,5
11,9
10,8
9,8
10
10,7
10,7
11
11,15
12,15
10,75
13,05
11,35
11,2
10,25
13,25
10,15
12,25
10,6
10,65
8,5
9,1
10,8
11,25
10,05
12,15
10,85
11,65
11,5
10,8
13,65
10,5
9,8
11,4
12,65
13,9
10,1
11,5
10,95
11,15
10,25
12
10,2
9,85
10,45
11,5
10,8
10,85
11,65
13,45
12,1
13,75
12,9
11,1
10,15
9,35
11,85
10,35
12,9
14,25
11,05
14,15
10,35
9,45
11,1
11,15
8
10,75
12,1
11,85
14,35
11,25
8,85
11,55
10,95
12,85
10,15
11,9
11,65
10,15
12,85
12,05
10,85
11,6
10,75
11,6
10,65
8,8
12,35
10,2
13,1
12,95
10,85
10,3
10,05
11,75
7,4
11,5
11,1
10,6
10,15
9
10,5
12,15
12,4
11
13,5
11,45
10,25
11,5
10,65
12,35
7,2
10,1
11,15
10
11,4
10,35
8,55
13,45
11,15
11,8
11,35
11,9
9,6
15,05
12,35
12,05
9,7
12,8
10,65
10,4
9,95
10,35
10,6
9,85
13,1
10,65
11,05
13,15
8,5
9,65
11,25
11,8
9,2
10,25
13,95
6,15
10,8
12,4
10
9,75
11,85
13,45
10,3
10,4
9,7
9,6
9,65
11,75
7,9
12,8
10,95
10,8
10,4
8,5
9,25
12,25
11,55
9,5
11,05
9
9,45
10,55
9,95
11,1
10,65
9,7
10,4
13,05
15,65
10,25
8,8
9,65
11,9
10,35
9,1
8,65
12,7
10,2
10,4
9,95
9,9
13,3
12
10,35
11,55
12,2
11,05
12,75
10,85
9,55
12,9
8,55
11,45
13,7
11,15
13,1
7,9
9,85
12,25
10,1
6,4
7,85
9,95
8,8
13,8
12,85
8,9
8,5
7,75
9,8
9,75
11,45
8,1
14,6
12,2
7,25
9,65
13,2
11,1
10,9
10
13,5
8,25
10,95
8,2
9,15
12,6
8,75
3,85
11,25
10,2
7,5
9
11,95
9,4
11,8
9,65
9,25
9,7
10,45
9,6
10,65
11,65
10,35
10,75
12,15
12,15
11,8
10,35
8,4
9,95
11,45
12,5
9,1
12,35
10,9
8,2
8,7
11,85
9,95
9,7
6
7,65
13
10,9
13,4
8,5
11,65
8,1
14,7
9,3
7,55
12,05
14,05
11
9
8,3
15,4
8,9
9,4
9,5
10,2
9,05
16,45
11
8,9
9,55
9,95
11,35
8,55
8,8
5,8
6,2
9,5
11,95
9,25
9,55
9,15
6,65
11,1
9,9
8,35
9,95
7,25
11,55

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)
if (par4 == '11-point Likert') par1 <- c(1:11 - 0.5, 11.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 {
barplot(mytab <- sort(table(x),T),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,'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')
}