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

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