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

26	19	21	18	21	11	23	20	17	21	23	21	4	8
20	25	16	17	15	4	24	28	17	19	20	23	4	4
19	17	19	19	18	10	22	24	18	25	20	27	6	4
20	22	16	20	8	13	24	27	20	17	24	27	8	4
25	21	23	17	19	11	27	23	28	20	22	22	4	8
22	26	12	25	20	24	27	28	22	22	20	28	8	4
26	20	19	26	16	5	24	27	16	21	25	27	5	4
22	14	16	19	14	5	23	19	18	17	23	16	4	4
19	23	13	16	14	13	27	28	14	17	22	24	4	4
24	20	20	19	8	9	28	11	11	22	24	20	4	4
26	22	27	25	23	17	27	25	27	25	25	22	4	4
13	15	8	15	9	12	24	20	22	15	28	20	4	10
22	20	13	12	15	7	25	20	23	22	25	24	8	4
21	22	15	21	19	16	24	24	24	21	28	19	7	8
7	20	5	15	6	14	20	25	14	16	21	23	4	4
17	28	14	28	11	24	26	28	23	28	27	27	5	4
25	25	24	26	17	18	23	24	24	22	14	21	4	5
25	26	24	25	17	12	23	21	24	21	14	19	4	4
19	17	9	12	5	9	20	22	8	12	27	19	4	5
23	23	19	15	15	8	24	20	23	25	21	26	4	12
22	13	19	14	17	10	23	20	21	24	21	28	4	9
21	24	18	22	20	19	18	23	24	24	12	24	15	4
18	14	12	21	7	4	23	21	25	25	28	24	4	4
22	22	25	23	15	19	26	12	23	25	22	25	4	5
18	23	19	25	15	11	26	23	21	26	27	16	7	4
23	22	20	22	10	11	23	28	21	22	26	25	4	4
20	24	24	24	14	24	22	24	26	24	22	24	6	6
15	21	12	20	9	17	20	24	18	17	24	23	16	4
21	23	17	22	18	18	25	25	17	20	22	26	6	4
18	22	16	16	17	12	22	21	15	15	21	22	9	5
19	21	11	22	14	16	23	26	13	24	23	25	4	5
22	26	20	24	16	23	25	28	26	26	28	27	5	4
16	15	11	16	10	7	23	21	16	21	10	12	4	4
18	25	20	27	10	10	22	27	21	25	21	15	5	4
20	17	19	20	14	17	24	22	20	23	21	21	4	8
24	25	17	27	10	21	25	23	14	28	24	24	4	4
24	27	18	24	9	19	17	24	20	18	25	19	4	4
18	25	17	19	12	13	20	22	22	21	23	21	6	4
21	19	27	16	16	12	23	23	20	21	21	21	4	4
17	26	19	26	18	22	20	25	18	23	17	24	18	7
22	20	19	22	18	5	24	21	24	15	25	18	4	4
16	20	11	21	9	14	24	22	20	23	23	19	5	4
21	18	22	14	19	12	28	20	19	21	28	18	4	8
24	18	20	12	23	12	25	21	23	10	19	23	10	5
24	19	24	22	22	6	25	19	26	21	26	20	5	5
16	23	16	20	14	17	18	26	22	18	18	25	8	5
16	17	16	18	14	15	17	20	20	19	18	21	8	4
18	23	11	23	12	17	22	22	13	22	21	22	5	4
20	23	20	23	12	22	25	23	22	24	22	22	4	7
24	11	20	12	16	9	26	22	22	15	27	20	5	10
17	18	12	16	11	13	19	24	20	18	22	23	14	4
19	24	8	23	14	20	25	23	6	26	28	25	8	5
20	16	21	18	13	12	21	23	21	21	26	25	8	7
15	24	18	23	9	20	13	27	20	23	10	26	4	4
22	24	16	15	13	18	25	21	23	16	22	20	6	4
23	21	18	17	19	13	26	23	20	22	21	26	4	8
16	25	20	22	13	15	25	25	24	16	24	21	7	6
19	22	20	20	13	18	25	23	22	19	25	22	7	4
19	21	17	20	14	18	21	22	18	20	20	16	6	9
21	24	15	20	11	12	24	28	23	25	23	25	4	4
24	24	17	22	18	16	21	28	21	21	24	23	8	4
22	21	23	18	19	16	25	20	24	21	24	21	4	5
18	18	19	17	15	13	20	18	21	16	20	16	10	4
24	23	17	21	19	12	23	21	20	20	20	23	6	4
24		12		15		28		11		27		4	
22		24		17		23		22		23		4	
23		18		8		28		27		26		4	
22		20		10		24		25		23		5	
20		16		12		18		18		17		4	
18		20		12		20		20		21		6	
25		22		20		28		24		25		4	
16		16		12		21		27		27		7	
20		17		14		25		21		24		8	
15		12		10		18		18		27		8	
19		14		18		21		15		21		10	
19		23		18		22		24		24		8	
16		15		7		24		22		21		5	
17		17		18		15		14		15		12	
28		28		9		28		28		25		4	
25		23		22		23		26		22		4	
20		13		11		26		17		24		6	
16		19		15		20		18		23		7	
23		13		14		22		11		23		8	
21		22		14		26		26		22		11	
23		20		20		23		23		22		8	
18		10		8		21		15		24		6	
20		17		17		26		22		24		7	
9		18		9		23		26		25		5	
25		23		22		27		20		26		8	
20		17		10		19		18		21		4	
21		19		12		22		19		26		5	
22		18		12		25		23		28		6	
27		22		20		25		24		18		4	
18		16		18		25		23		20		6	
16		16		16		19		27		25		16	
22		16		13		25		23		22		6	
20		16		17		22		18		21		6	
20		18		17		20		16		18		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')