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

100,00	100,00	100,00	100,00
98,78	99,88	101,71	99,74
96,87	98,97	102,79	98,76
94,36	96,73	102,21	96,67
92,60	95,72	101,62	95,44
94,19	96,37	102,72	96,51
111,67	101,42	102,64	105,55
120,38	102,11	98,75	108,61
112,53	105,44	110,46	108,94
113,05	105,21	108,37	108,71
108,02	103,32	106,77	105,66
109,70	102,70	105,92	105,89
108,79	101,92	105,23	105,08
106,53	102,24	108,18	104,81
105,06	101,71	107,72	103,93
102,52	100,01	106,09	101,92
100,42	99,37	106,71	100,91
101,49	99,43	105,70	101,19
118,60	104,84	106,51	110,39
122,94	106,00	101,63	111,84
114,98	108,62	112,86	111,72
111,51	105,30	112,85	108,85
106,02	104,15	110,70	105,88
107,20	103,58	111,45	106,19
101,41	106,75	112,12	105,53
101,42	105,13	113,06	104,93
98,32	103,69	113,25	103,11
99,32	101,72	110,21	102,11
97,65	101,80	112,49	101,86
97,79	102,68	109,70	101,89
111,01	108,77	112,29	110,18
111,28	110,99	112,20	111,29
106,63	111,76	114,67	110,24
96,56	108,60	112,00	104,50
91,53	105,76	107,82	100,61
89,99	103,89	107,49	99,10
89,99	105,28	107,16	99,69
85,87	104,37	106,60	97,60
82,37	100,57	106,87	94,55
79,82	101,27	104,51	93,53
77,37	97,62	104,36	90,88
77,72	92,16	105,53	88,68
93,56	99,80	108,60	98,76
93,60	103,00	109,59	100,40
84,41	101,67	110,02	96,32
80,23	99,65	109,64	93,73
76,97	96,09	108,54	90,67
79,22	95,88	108,66	91,45
78,48	97,84	107,71	91,93
75,93	97,25	105,05	90,26
74,88	92,48	104,69	87,60
73,81	92,57	104,35	87,18
69,83	88,35	102,79	83,47
73,12	88,63	103,23	84,93
86,26	96,54	105,42	93,96
86,51	98,09	106,17	94,89
80,62	96,99	106,09	92,11
78,32	93,81	107,74	90,01
77,15	93,25	107,38	89,25
82,34	94,22	108,02	91,79
86,21	95,21	109,34	93,94
87,51	95,51	110,28	94,72
88,59	95,61	111,51	95,38
87,36	96,15	113,21	95,41
86,02	93,19	110,49	93,11
90,32	93,82	112,40	95,36
103,38	101,67	114,49	104,31
104,93	103,55	116,55	106,09
99,03	101,93	117,58	103,24

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