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

11
11
11
11
10
14
9
11
11
12
10
10
10
14
12
10
9
10
12
10
13
8
12
11
11
12
12
12
11
14
11
11
11
10
12
12
10
14
12
12
11
11
11
15
11
11
10
0
10
11
12
10
12
9
10
7
9
12
11
12
13
11
11
12
9
13
11
10
8
11
12
11
8
11
8
11
7
10
9
11
11
9
11
11
13
10
14
11
11
9
10
13
9
12
11
14
12
12
7
11
11
12
12
11
11
11
15
12
12
11
12
10
11
11
9
14
11
8
11
11
13
11
11
14
11
11
11
8
10
11
11
14
12
12
12
10
13
3
10
13
7
11
12
11
11
11
12
8
14
14
12
12
14
12
10
11
11
7
13
10
11
9
13
11
10
11
12
11
11

10
13
14
8
8
13
13
9
9
14
14
12
12
11
12
14
8
0
11
9
13
8
13
8
9
8
12
12
13
13
10
12
13
9
10
14
8
10
10
14
8
14
10
13
12
12
9
12
10
3
14
10
9
8
11
10
8
14
12
8
14
13
13
13
12
10
14
11
10
13
8
8
7
7
9
12
13
11
10
14
9
7
9
13
9
15
13
14
8
13
11
8
14
9
14
8
12
13
14
13
4
9
12
10
8
9
8
9
8
12
8
7
8
9
14
12
13
9
13
11
12
11
8
12
9
12
13
9
8
8
8
12
13
7
8
8
13
3
12
15
14
7
11
12
10
14
10
15
11
8
6
12
13
12
9
8
14
7
8
14
12
15
11
8
8
7
12
7
11

library(car)
if(par1 == '') par1 <- 0
par1 <- as.numeric(par1)
if (par1 < 0) par1 <- 0
bitmap(file='test1.png')
if(par1 > 0) {
myhist<-hist(x, breaks=par1, col=2,main='Histogram (series X)')
} else {
myhist <- hist(x, col=2)
}
dev.off()
bitmap(file='test1a.png')
if(par1 > 0) {
myhist<-hist(y, breaks=par1, col=2,main='Histogram (series Y)')
} else {
myhist <- hist(y, col=2)
}
dev.off()
bitmap(file='test2.png')
qqPlot(x,main='Normal Q-Q Plot (series X)',ylab='Sample Quantiles',xlab='Normal Quantiles')
dev.off()
bitmap(file='test2a.png')
qqPlot(y,main='Normal Q-Q Plot (series Y)',ylab='Sample Quantiles',xlab='Normal Quantiles')
dev.off()
bitmap(file='test3.png')
qqplot(x,y,main='Q-Q Plot (series X vs Y)',ylab='Sample Quantiles of series Y',xlab='Sample Quantiles of series X')
qqline(x,y)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean of X',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation of X',header=TRUE)
a<-table.element(a,sd(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean of Y',header=TRUE)
a<-table.element(a,mean(y))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation of Y',header=TRUE)
a<-table.element(a,sd(y))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')