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

62,4	58,5	55,5	46,8
67,4	59,8	63	52,8
76,1	64,6	77,2	58,3
67,4	62,2	71,1	54,5
74,5	68	90,1	64,7
72,6	64,3	91,5	58,3
60,5	58,9	76,1	57,5
66,1	64,8	87,8	56,7
76,5	67,5	81	56
76,8	76,2	77,2	66,2
77	73,7	73,8	58,2
71	70,4	68,9	53,9
74,8	67,7	68,4	53,1
73,7	63,7	65,2	54,4
80,5	72,4	78,7	59,2
71,8	66	77	57,8
76,9	70,1	97,6	61,5
79,9	70,4	88,1	60,1
65,9	66,6	98,7	60,1
69,5	72,6	93,4	58,4
75,1	74	68	56,8
79,6	79	87,9	63,8
75,2	76,1	75,8	53,9
68	72,3	66,3	63,1
72,8	71,6	68,4	55,7
71,5	67,2	71,3	54,9
78,5	73,8	77,4	64,6
76,8	70,8	87,1	60,2
75,3	71,4	88,5	63,9
76,7	70,4	85,9	69,9
69,7	70,7	92,7	58,5
67,8	70,6	88,5	52
77,5	75,5	80,2	66,7
82,5	82,1	81,8	72
75,3	74,3	70,4	68,4
70,9	76,3	82,2	70,8
76	74,5	72,8	56,5
73,7	71,1	69	62,6
79,7	73,3	83	66,5
77,8	73,8	92,4	69,2
73,3	69	92,3	63,7
78,3	71,1	100,5	73,6
71,9	71,9	106,9	64,1
67	69	99,5	53,8
82	77,3	85,9	72,2
83,7	82,8	92,6	80,2
74,8	74	77,4	69,1
80	77,6	84,1	72
74,3	72,3	75,3	66,3
76,8	70,7	73,8	72,5
89	81	100,1	88,9
81,9	76,4	90,7	88,6
76,8	72,3	96,5	73,7
88,9	79,5	111,8	86
75,8	73,3	97,4	70
75,5	74,5	100,8	71,6
89,1	82,7	93,7	90,5
88	83,8	82	85,7
85,9	81,6	86	84,8
89,3	85,5	84,3	81,1
82,9	76,7	73,1	70,8
81,2	71,8	75,4	65,7
90,5	80,2	97,9	86,2
86,4	76,8	97,5	76,1
81,8	76,1	106	79,8
91,3	80,7	112,8	85,2
73,4	71,3	99,5	75,8
76,6	80,9	100,8	69,4
91	85	102,9	85
87	84,5	88,8	75
89,7	87,7	91,3	77,7
90,7	87,7	88,3	68,5
86,5	80,2	77,4	68,4
86,6	74,4	80,5	65
98,8	85,8	96,7	73,2
84,4	77	93,8	67,9
91,4	84,5	105	76,5
95,7	83,6	117,1	85,5
78,5	77,7	111,1	71,7
81,7	85,7	105,8	57,9
94,3	87,9	95,7	75,5
98,5	93,7	97,1	78,2
95,4	92,3	91	75,7
91,7	87	90,9	67,1
92,8	89,1	83,5	74,6
90,5	81,3	82,3	66,2
102,2	92,7	101,7	74,9
91,8	83,9	108,3	69,5
95	87,3	114	76,1
102	89,1	118,2	82,3
88,9	86,9	103,4	82,1
89,6	91,7	106,8	60,5
97,9	93	95,4	71,2
108,6	105,3	101,8	81,4
100,8	101,6	95,6	74,5
95,1	94,2	94,8	61,4
101	100,5	94	83,8
100,9	95,8	82,4	85,4
102,5	95,8	95,8	91,6
105,4	102,1	106,7	91,9
98,4	96	114,1	86,3
105,3	96,8	103,9	96,8
96,5	98,9	117,4	81
88,1	93,4	105,9	70,8
107,9	105,5	101,7	98,8
107	110,9	98,7	94,5
92,5	98,6	91,3	84,5
95,7	102,6	102,3	92,8
85,2	93,5	80,5	81,2
85,5	90,8	86,7	75,7
94,7	99,7	102,6	86,7
86,2	97,8	107,3	87,5
88,8	91,1	108	87,8
93,4	98,1	124,3	103,1
83,4	96	117,1	96,4
82,9	93,5	103,9	77,1
96,7	101,2	104,7	106,5
96,2	105,2	95,9	95,7
92,8	98,9	94,2	95,3
92,8	101,3	102,7	86,6
90	92,1	70,3	89,6
95,4	90,6	90,2	81,9
108,3	105,4	107,3	98,4
96,3	98,4	104,6	92,9
95	92,7	102,7	83,9
109	101,2	124,5	121,8
92	93,4	117,8	103,9
92,3	98,3	104,2	87,5
107	104,3	99,9	118,9
105,5	107	91,5	109
105,4	107,7	95,7	112,2
103,9	108,9	91,4	100,1
99,2	99,6	86,2	111,3
102,2	96,1	91,5	102,7
121,5	109	115,5	122,6
102,3	99,5	113,9	124,8
110	104,6	131,9	120,3
105,9	99,9	121,2	118,3
91,9	94,1	105,2	108,7
100	105,3	107,5	100,7
111,7	110,4	113,8	124
104,9	110,5	100,5	103,1
103,3	110	104,8	115
101,8	108,5	103,8	112,7
100,8	104,3	93,1	101,7
104,2	101,2	106,2	111,5
116,5	109,2	117,5	114,4
97,9	99,6	109,9	112,5
100,7	105,6	123,6	107,2
107	106,2	131,7	136,7
96,3	102,2	111	107,8
96	107,5	122	94,6
104,5	105,8	110,9	110,7
107,4	120,5	108	126,6
102,4	113,2	103,6	127,9
94,9	104,3	107,3	109,2
98,8	107,7	94,4	87,1
96,8	99,2	85,2	90,8
108,2	105,1	113,2	94,5
103,8	104,3	111,7	103,3
102,3	106,1	124,3	103,2
107,2	100,8	124	105,4
102	106,7	133,4	103,9
92,6	101,6	112,6	79,8
105,2	104,4	115,8	105,6
113	114,8	112,3	113
105,6	105,4	103,6	87,7
101,6	104	111,4	110
101,7	102	95,1	90,3
102,7	96,5	93,4	108,9
109	102,3	117,3	105,1
105,5	105,3	121,5	113
103,3	101,9	123,1	100,4
108,6	102,2	139,3	110,1
98,2	102,8	125,8	114,7
90	100,4	108,6	88,6
112,4	110,7	121	117,2
111,9	116,4	111,6	127,7
102,1	106	99,7	107,8
102,4	109,2	116,7	102,8
101,7	103	90,3	100,2
98,7	99,8	90,4	108,4
114	109,8	117,3	114,2
105,1	107,3	121,6	94,4
98,3	101,2	114,6	92,2
110	111,8	133,3	115,3
96,5	106,9	127,4	102
92,2	103,5	115	86,3
112	113,1	112,6	112
111,4	119,4	108,3	112,5
107,5	113,3	107,6	109,5
103,4	115	109	105,9
103,5	104,7	89	115,3
107,4	107,2	102,5	126,2
117,6	116,6	124,5	112,2
110,2	111,3	124,2	112,5
104,3	111,4	130,8	106,9
115,9	115	138,7	90,6
98,9	102,4	127,6	75,6
101,9	111,4	130,9	78,8
113,5	113,2	136,9	101,8
109,5	112,9	125,2	93,9
110	114,2	131,3	100
114,2	115,6	124,1	89,2
106,9	107,1	103,2	97,7
109,2	102,3	118,1	121,1
124,2	117,9	136,5	108,8
104,7	105,8	117,8	92,9
111,9	114,3	145,1	113,6
119	113,1	158,8	112,6
102,9	102,9	136,9	98,8
106,3	112,2	132,7	78

if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
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,'Boxplot statistics',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower whisker',1,TRUE)
a<-table.element(a,'lower hinge',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper hinge',1,TRUE)
a<-table.element(a,'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')