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

26 50 4 0
57 62 4 0
37 54 5 0
67 71 4 0
43 54 4 0
52 65 9 0
52 73 8 0
43 52 11 0
84 84 4 0
67 42 4 0
49 66 6 0
70 65 4 0
52 78 8 0
58 73 4 0
68 75 4 0
62 72 11 1
43 66 4 0
56 70 4 0
56 61 6 1
74 81 6 0
65 71 4 0
63 69 8 0
58 71 5 0
57 72 4 0
63 68 9 0
53 70 4 0
57 68 7 1
51 61 10 1
64 67 4 0
53 76 4 0
29 70 7 0
54 60 12 0
58 72 7 0
43 69 5 0
51 71 8 0
53 62 5 0
54 70 4 0
56 64 9 1
61 58 7 0
47 76 4 0
39 52 4 0
48 59 4 0
50 68 4 0
35 76 4 0
30 65 7 1
68 67 4 0
49 59 7 0
61 69 4 1
67 76 4 0
47 63 4 1
56 75 4 1
50 63 8 1
43 60 4 0
67 73 4 1
62 63 4 0
57 70 4 0
41 75 7 1
54 66 12 0
45 63 4 1
48 63 4 1
61 64 4 0
56 70 5 0
41 75 15 0
43 61 5 0
53 60 10 0
44 62 9 1
66 73 8 0
58 61 4 0
46 66 5 0
37 64 4 1
51 59 9 0
51 64 4 0
56 60 10 1
66 56 4 1
37 78 4 0
59 53 6 0
42 67 7 0
38 59 5 1
66 66 4 0
34 68 4 1
53 71 4 0
49 66 4 1
55 73 4 1
49 72 4 1
59 71 6 1
40 59 10 1
58 64 7 1
60 66 4 1
63 78 4 1
56 68 7 1
54 73 4 1
52 62 8 1
34 65 11 1
69 68 6 1
32 65 14 1
48 60 5 1
67 71 4 1
58 65 8 1
57 68 9 1
42 64 4 1
64 74 4 1
58 69 5 1
66 76 4 1
26 68 5 1
61 72 4 1
52 67 4 1
51 63 7 1
55 59 10 1
50 73 4 1
60 66 5 1
56 62 4 1
63 69 4 1
61 66 4 1
52 51 6 0
16 56 4 0
46 67 8 0
56 69 5 0
52 57 4 1
55 56 17 1
50 55 4 0
59 63 4 0
60 67 8 0
52 65 4 0
44 47 7 0
67 76 4 0
52 64 4 0
55 68 5 0
37 64 7 0
54 65 4 0
72 71 4 1
51 63 7 0
48 60 11 0
60 68 7 0
50 72 4 0
63 70 4 0
33 61 4 0
67 61 4 0
46 62 4 0
54 71 4 0
59 71 6 0
61 51 8 0
33 56 23 1
47 70 4 0
69 73 8 0
52 76 6 0
55 68 4 0
41 48 7 0
73 52 4 0
52 60 4 0
50 59 4 0
51 57 10 0
60 79 6 0
56 60 5 0
56 60 5 0
29 59 4 0
66 62 4 1
66 59 5 1
73 61 5 0
55 71 5 0
64 57 5 1
40 66 4 1
46 63 6 1
58 69 4 1
43 58 4 0
61 59 4 0
51 48 9 1
50 66 18 1
52 73 6 1
54 67 5 1
66 61 4 1
61 68 11 1
80 75 4 1
51 62 10 1
56 69 6 1
56 58 8 0
56 60 8 0
53 74 6 1
47 55 8 0
25 62 4 0
47 63 4 1
46 69 9 0
50 58 9 1
39 58 5 1
51 68 4 0
58 72 4 1
35 62 15 1
58 62 10 1
60 65 9 1
62 69 7 1
63 66 9 1
53 72 6 1
46 62 4 1
67 75 7 1
59 58 4 1
64 66 7 1
38 55 4 1
50 47 15 1
48 72 4 0
48 62 9 1
47 64 4 1
66 64 4 1
47 19 28 0
63 50 4 1
58 68 4 0
44 70 4 1
51 79 5 0
43 69 4 1
55 71 4 0
38 48 12 1
45 73 4 1
50 74 6 1
54 66 6 1
57 71 5 0
60 74 4 0
55 78 4 1
56 75 4 0
49 53 10 0
37 60 7 1
59 70 4 0
46 69 7 1
51 65 4 1
58 78 4 0
64 78 12 1
53 59 5 0
48 72 8 0
51 70 6 0
47 63 17 1
59 63 4 0
62 71 5 1
62 74 4 0
51 67 5 0
64 66 5 0
52 62 6 0
67 80 4 1
50 73 4 0
54 67 4 0
58 61 6 0
56 73 8 1
63 74 10 0
31 32 4 0
65 69 5 1
71 69 4 0
50 84 4 1
57 64 4 1
47 58 16 1
47 59 7 1
57 78 4 1
43 57 4 0
41 60 14 0
63 68 5 0
63 68 5 0
56 73 5 0
51 69 5 0
50 67 7 1
22 60 19 1
41 65 16 0
59 66 4 1
56 74 4 1
66 81 7 0
53 72 9 1
42 55 5 1
52 49 14 1
54 74 4 1
44 53 16 1
62 64 10 1
53 65 5 1
50 57 6 1
36 51 4 1
76 80 4 1
66 67 4 1
62 70 5 1
59 74 4 1
47 75 4 1
55 70 5 1
58 69 4 1
60 65 4 1
44 55 5 0
57 71 8 1
45 65 15 1

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