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

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

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