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

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

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