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

11	8	7	20	12	18	4
15	18	18	25	20	23	9
19	18	20	19	20	23	4
23	20	13	22	21	22	4
16	12	9	18	14	22	5
21	21	18	20	19	24	15
24	24	19	24	25	22	4
15	16	12	20	15	19	4
17	19	16	20	20	25	9
19	16	17	24	21	28	8
19	15	9	21	15	16	11
25	21	11	22	19	19	4
19	21	15	13	20	22	4
28	28	28	28	28	28	4
24	23	10	18	14	22	4
26	21	20	10	11	21	4
15	18	16	22	22	22	6
21	13	14	20	20	20	18
26	22	22	19	22	24	4
16	19	17	27	27	24	8
16	16	12	26	25	24	4
20	18	16	23	21	21	8
24	22	12	23	24	26	4
10	13	11	24	20	25	10
19	20	16	23	24	25	4
25	25	18	24	23	28	4
22	20	20	24	24	24	11
15	16	12	25	21	20	4
21	19	16	24	20	26	4
22	18	16	21	19	21	6
27	26	21	28	25	28	6
26	24	15	28	16	27	4
26	20	17	22	24	23	8
22	19	17	26	21	24	5
20	18	16	18	20	20	12
22	19	15	19	23	25	5
21	19	17	26	22	24	4
22	23	18	21	25	22	9
20	18	15	26	23	21	4
21	16	20	23	20	25	7
20	18	13	20	21	20	10
25	25	13	20	24	26	8
18	15	10	17	22	19	9
22	21	21	24	22	21	4
25	20	15	25	23	26	5
21	20	12	25	25	26	4
20	20	18	22	20	23	6
20	16	13	27	19	23	4
18	21	9	25	23	22	4
8	15	6	24	23	23	7
22	19	13	20	19	21	12
26	25	22	26	27	28	4
18	27	6	23	27	27	4
20	19	19	24	21	27	7
24	7	12	25	19	25	5
17	20	14	23	25	23	8
20	20	13	21	16	25	5
23	19	12	23	24	23	4
20	19	17	21	24	19	9
22	20	19	18	18	22	7
20	19	9	21	21	23	4
19	18	10	24	28	24	4
15	14	10	18	15	19	4
20	17	11	21	17	21	4
22	17	11	23	18	27	4
13	8	10	25	26	25	4
20	11	8	25	26	21	4
17	16	11	17	15	19	5
14	9	7	18	18	25	7
22	20	23	18	16	23	4
24	22	22	22	22	19	4
22	20	16	24	21	23	4
23	13	6	27	27	26	4
17	20	12	23	19	17	7
23	20	18	24	17	28	4
25	22	20	25	26	25	4
16	22	9	22	21	20	4
18	22	16	24	26	25	4
20	16	14	21	21	21	8
18	14	11	24	12	24	4
24	20	19	26	22	27	4
23	24	20	25	20	28	4
24	21	17	23	20	20	4
23	20	21	22	23	22	14
23	20	14	27	24	19	4
13	20	8	27	24	24	7
20	18	16	23	22	21	12
18	15	12	25	20	25	4
21	14	13	12	12	18	4
17	16	16	17	18	20	7
20	14	11	18	21	24	4
19	15	12	24	22	24	11
18	18	14	25	20	24	4
19	19	10	20	20	23	4
22	24	15	23	23	18	4
22	19	15	24	19	27	5
15	16	10	26	24	25	15
17	16	10	20	21	20	5
19	16	18	23	16	21	10
20	14	10	22	17	23	9
22	22	22	23	23	27	8
21	21	16	17	20	24	4
19	20	14	20	17	22	5
21	15	10	20	19	27	5
18	16	18	19	17	19	10
16	14	7	22	18	24	4
20	15	16	18	18	23	9
21	14	16	19	21	24	4
15	17	13	23	23	22	8
20	20	16	19	20	21	6
23	21	22	16	17	23	4
15	17	13	24	20	22	7
18	14	5	26	25	27	4
22	19	18	14	15	24	6
16	16	10	25	17	25	7
17	13	8	23	17	19	5
24	26	16	18	24	24	4
13	13	8	22	21	25	4
23	22	14	20	19	25	4
5	13	4	28	28	15	28
19	18	16	26	22	23	4
24	21	24	23	20	24	8
19	19	18	20	19	22	5
20	15	14	25	18	23	4
22	18	15	26	22	25	4
15	17	16	24	20	25	5
19	21	9	26	20	26	4
25	19	16	24	22	20	8
21	17	21	24	21	26	6
19	17	16	18	20	20	4
17	17	12	20	12	20	4
15	18	7	22	21	16	10
21	20	17	21	20	23	7
24	18	18	22	18	26	4
22	25	16	28	25	25	4
19	17	9	24	21	23	5
20	20	16	22	23	23	7
21	19	14	26	21	26	4
19	18	15	20	20	22	8
22	22	19	28	27	25	4
14	12	8	24	21	20	11
25	22	22	21	20	27	6
11	16	5	23	22	20	14
16	11	10	17	12	19	11
19	18	17	23	24	23	8
17	18	13	23	15	22	5
20	23	20	27	20	24	4
22	23	22	23	24	24	4
20	20	18	22	22	21	8
22	20	15	23	21	24	9
15	16	11	21	17	26	4
23	22	19	27	23	20	4
20	19	19	23	22	24	5
17	16	13	23	22	20	11
20	21	11	28	26	24	4
25	21	18	24	26	27	4
22	23	21	26	23	27	4
16	6	4	27	16	25	5
25	19	17	27	18	27	4
18	24	10	23	25	19	4
19	19	13	23	18	18	7
25	15	15	23	14	22	10
23	13	13	28	23	22	4
24	17	23	26	21	27	4
21	13	11	26	22	21	5
21	18	11	28	20	25	4
22	18	20	24	19	23	5
21	22	13	20	18	24	4
18	14	11	18	22	22	10
13	9	6	28	20	18	9
22	23	18	23	22	24	4
23	18	20	22	21	23	4
15	21	10	27	27	27	4

z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
a<-table.element(a,hyperlink('lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
a<-table.element(a,hyperlink('central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
a<-table.element(a,hyperlink('upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
a<-table.element(a,hyperlink('upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,i])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Notches',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower bound',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper bound',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')