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

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

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