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

13	2	7	41	38	12	14	12
16	2	5	39	32	11	18	11
19	2	5	30	35	15	11	14
15	1	5	31	33	6	12	12
14	2	8	34	37	13	16	21
13	2	6	35	29	10	18	12
19	2	5	39	31	12	14	22
15	2	6	34	36	14	14	11
14	2	5	36	35	12	15	10
15	2	4	37	38	6	15	13
16	1	6	38	31	10	17	10
16	2	5	36	34	12	19	8
16	1	5	38	35	12	10	15
16	2	6	39	38	11	16	14
17	2	7	33	37	15	18	10
15	1	6	32	33	12	14	14
15	1	7	36	32	10	14	14
20	2	6	38	38	12	17	11
18	1	8	39	38	11	14	10
16	2	7	32	32	12	16	13
16	1	5	32	33	11	18	7
16	2	5	31	31	12	11	14
19	2	7	39	38	13	14	12
16	2	7	37	39	11	12	14
17	1	5	39	32	9	17	11
17	2	4	41	32	13	9	9
16	1	10	36	35	10	16	11
15	2	6	33	37	14	14	15
16	2	5	33	33	12	15	14
14	1	5	34	33	10	11	13
15	2	5	31	28	12	16	9
12	1	5	27	32	8	13	15
14	2	6	37	31	10	17	10
16	2	5	34	37	12	15	11
14	1	5	34	30	12	14	13
7	1	5	32	33	7	16	8
10	1	5	29	31	6	9	20
14	1	5	36	33	12	15	12
16	2	5	29	31	10	17	10
16	1	5	35	33	10	13	10
16	1	5	37	32	10	15	9
14	2	7	34	33	12	16	14
20	1	5	38	32	15	16	8
14	1	6	35	33	10	12	14
14	2	7	38	28	10	12	11
11	2	7	37	35	12	11	13
14	2	5	38	39	13	15	9
15	2	5	33	34	11	15	11
16	2	4	36	38	11	17	15
14	1	5	38	32	12	13	11
16	2	4	32	38	14	16	10
14	1	5	32	30	10	14	14
12	1	5	32	33	12	11	18
16	2	7	34	38	13	12	14
9	1	5	32	32	5	12	11
14	2	5	37	32	6	15	12
16	2	6	39	34	12	16	13
16	2	4	29	34	12	15	9
15	1	6	37	36	11	12	10
16	2	6	35	34	10	12	15
12	1	5	30	28	7	8	20
16	1	7	38	34	12	13	12
16	2	6	34	35	14	11	12
14	2	8	31	35	11	14	14
16	2	7	34	31	12	15	13
17	1	5	35	37	13	10	11
18	2	6	36	35	14	11	17
18	1	6	30	27	11	12	12
12	2	5	39	40	12	15	13
16	1	5	35	37	12	15	14
10	1	5	38	36	8	14	13
14	2	5	31	38	11	16	15
18	2	4	34	39	14	15	13
18	1	6	38	41	14	15	10
16	1	6	34	27	12	13	11
17	2	6	39	30	9	12	19
16	2	6	37	37	13	17	13
16	2	7	34	31	11	13	17
13	1	5	28	31	12	15	13
16	1	7	37	27	12	13	9
16	1	6	33	36	12	15	11
20	1	5	37	38	12	16	10
16	2	5	35	37	12	15	9
15	1	4	37	33	12	16	12
15	2	8	32	34	11	15	12
16	2	8	33	31	10	14	13
14	1	5	38	39	9	15	13
16	2	5	33	34	12	14	12
16	2	6	29	32	12	13	15
15	2	4	33	33	12	7	22
12	2	5	31	36	9	17	13
17	2	5	36	32	15	13	15
16	2	5	35	41	12	15	13
15	2	5	32	28	12	14	15
13	2	6	29	30	12	13	10
16	2	6	39	36	10	16	11
16	2	5	37	35	13	12	16
16	2	6	35	31	9	14	11
16	1	5	37	34	12	17	11
14	1	7	32	36	10	15	10
16	2	5	38	36	14	17	10
16	1	6	37	35	11	12	16
20	2	6	36	37	15	16	12
15	1	6	32	28	11	11	11
16	2	4	33	39	11	15	16
13	1	5	40	32	12	9	19
17	2	5	38	35	12	16	11
16	1	7	41	39	12	15	16
16	1	6	36	35	11	10	15
12	2	9	43	42	7	10	24
16	2	6	30	34	12	15	14
16	2	6	31	33	14	11	15
17	2	5	32	41	11	13	11
13	1	6	32	33	11	14	15
12	2	5	37	34	10	18	12
18	1	8	37	32	13	16	10
14	2	7	33	40	13	14	14
14	2	5	34	40	8	14	13
13	2	7	33	35	11	14	9
16	2	6	38	36	12	14	15
13	2	6	33	37	11	12	15
16	2	9	31	27	13	14	14
13	2	7	38	39	12	15	11
16	2	6	37	38	14	15	8
15	2	5	33	31	13	15	11
16	2	5	31	33	15	13	11
15	1	6	39	32	10	17	8
17	2	6	44	39	11	17	10
15	2	7	33	36	9	19	11
12	2	5	35	33	11	15	13
16	1	5	32	33	10	13	11
10	1	5	28	32	11	9	20
16	2	6	40	37	8	15	10
12	1	4	27	30	11	15	15
14	1	5	37	38	12	15	12
15	2	7	32	29	12	16	14
13	1	5	28	22	9	11	23
15	1	7	34	35	11	14	14
11	2	7	30	35	10	11	16
12	2	6	35	34	8	15	11
8	1	5	31	35	9	13	12
16	2	8	32	34	8	15	10
15	1	5	30	34	9	16	14
17	2	5	30	35	15	14	12
16	1	5	31	23	11	15	12
10	2	6	40	31	8	16	11
18	2	4	32	27	13	16	12
13	1	5	36	36	12	11	13
16	1	5	32	31	12	12	11
13	1	7	35	32	9	9	19
10	2	6	38	39	7	16	12
15	2	7	42	37	13	13	17
16	1	10	34	38	9	16	9
16	2	6	35	39	6	12	12
14	2	8	35	34	8	9	19
10	2	4	33	31	8	13	18
17	2	5	36	32	15	13	15
13	2	6	32	37	6	14	14
15	2	7	33	36	9	19	11
16	2	7	34	32	11	13	9
12	2	6	32	35	8	12	18
13	2	6	34	36	8	13	16

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