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

77,5	54,4
77,6	50,9
84,8	61,7
78,2	48,0
79,1	60,4
71,2	44,6
82,2	58,6
79,3	58,9
80,0	51,3
79,4	60,3
78,4	53,5
78,7	65,1
77,4	51,0
78,0	49,9
77,1	55,4
80,2	59,8
80,7	59,7
80,4	53,0
79,2	51,5
79,7	48,6
78,1	53,4
81,8	61,7
78,9	59,8
79,5	57,8
82,1	60,5
77,7	55,8
84,9	60,7
77,5	54,5
77,5	50,5
78,0	52,7
78,7	54,2
78,8	54,1
73,9	51,9
89,9	51,6
73,4	46,1
75,3	51,9
73,2	42,1
83,0	58,0
79,1	53,1
72,3	40,1
78,9	52,8
81,3	58,5
79,2	51,2
76,2	46,9
83,2	65,9
78,5	52,2
76,6	56,3
78,3	54,0
81,1	58,8
80,2	54,2
72,5	43,4
87,3	50,0
79,9	57,5
74,7	45,7
84,4	60,3
79,9	54,9
77,6	53,1
89,4	56,5
86,3	61,0
77,6	52,6
78,9	53,5
70,0	42,2
82,4	63,8
85,1	60,2
75,6	50,2
73,8	51,7
84,4	61,0
74,6	44,3
74,8	51,8
70,9	43,8
79,5	55,2
79,2	56,1
79,4	55,2
77,9	51,8
80,4	59,0
79,4	49,7
83,3	54,7
79,7	58,2
79,3	48,6
77,4	48,6
78,8	43,7
81,4	69,8
82,2	64,0
77,1	55,3
80,4	53,2
78,1	55,2
75,1	48,1
84,8	62,3
83,0	58,3
77,6	54,6
69,6	37,1
69,3	40,8
76,9	56,4
77,6	58,2
80,6	60,2
76,4	52,2
80,2	43,6
82,2	60,5
74,7	52,6
75,4	54,3
83,5	60,5
71,2	41,1
80,5	56,8
76,6	52,8
70,6	43,4
76,8	54,6
84,4	60,4
77,6	48,4
74,1	49,0
78,0	51,8
81,2	59,2
75,4	52,2
86,6	59,7
77,1	54,3
78,7	55,5
87,3	63,6
85,3	61,7
77,7	55,1
80,6	60,5
82,0	58,4
73,3	46,0
70,3	44,4
78,9	44,1
80,3	44,7
81,6	51,7
85,5	58,8
79,2	57,1
79,7	55,5
78,4	63,5
85,3	61,3
71,5	42,7
78,8	51,2
75,7	52,0
75,3	53,9
77,5	68,4
78,2	49,6
81,0	53,6
79,5	56,3
76,6	50,9
80,1	50,9
78,0	56,5
84,4	60,4
79,8	57,9
78,3	49,5
82,7	50,0
78,8	56,6
76,9	53,3
75,0	53,3
80,5	54,5
70,9	41,5
77,7	47,2
81,6	60,0
77,1	54,4
84,6	64,3
72,8	42,6
77,8	52,7
85,8	61,4
76,7	52,2
75,3	50,4
72,5	42,5
77,2	52,2
78,8	56,5
81,2	58,5
77,7	50,9
80,6	58,8
80,7	62,3
80,0	57,6
81,8	56,2
78,4	58,2
75,5	53,3
78,0	55,4
77,1	48,7
76,5	50,4
78,9	57,3
80,9	54,3
79,9	51,3
81,6	59,8
76,4	53,6
75,4	48,6
77,3	53,3
79,1	55,7
84,4	61,7
84,3	64,0
81,7	59,5
84,3	59,0
80,6	49,1
89,3	56,0
76,8	52,6
72,2	51,9
76,7	52,7
76,3	48,0
78,2	52,1
83,0	57,0
88,1	63,3
76,4	53,1
75,6	44,8
78,9	57,4
79,2	56,9
72,4	41,4
74,9	43,9
78,9	53,7
79,7	53,8
78,4	52,8
76,4	56,7
79,1	54,2
74,6	47,0
79,1	55,3
81,4	56,4
81,6	59,5
80,3	54,9
79,3	46,6
77,1	43,0
80,2	57,4
75,7	52,0
79,9	51,9
75,8	50,1
78,9	63,8
83,0	62,2
85,8	64,9
86,1	66,4
80,9	55,3
86,5	63,5
80,0	54,3
77,8	55,6
74,5	53,0
74,3	47,8
75,7	48,7
80,4	51,0
79,3	54,1
70,7	43,6
78,1	51,3
81,0	50,7
76,3	51,4
80,1	55,3
87,3	64,3
82,8	48,8
74,0	44,3
72,1	48,2
76,9	49,0
75,4	53,3
73,6	40,8
74,9	42,1
78,0	51,2
77,6	55,6
79,2	52,7
80,9	55,3
80,8	58,9
80,7	58,2
79,1	50,9
79,0	53,1
72,7	43,1
78,2	57,1
78,2	56,2
78,7	50,0
76,8	49,0
82,3	53,1
78,4	62,0
78,8	55,5
71,1	45,1
81,8	54,3
79,6	55,0
71,0	42,0
82,0	53,0
75,4	51,9
84,5	57,3
82,4	48,4
80,3	51,0
69,9	42,7
84,4	53,5
81,0	58,2
76,9	53,6
69,9	48,3
75,4	45,0
72,2	46,2
80,9	63,6
79,9	70,5
79,2	59,6
81,1	69,7
79,4	67,0
77,9	67,0
76,9	50,5
82,9	59,0
77,2	50,9
88,6	56,2
78,8	52,5
77,3	54,2
76,1	48,8
84,9	63,7
83,1	49,7
80,6	55,1
82,6	60,7
82,6	60,6
87,6	62,5
77,5	51,9
79,7	52,2
83,4	63,7
79,2	65,3
77,8	54,4
77,2	51,4
77,1	49,8
76,6	57,0
78,3	53,6
78,4	53,0
81,2	59,4
81,0	58,7
79,6	54,3
78,7	50,9
85,6	63,5
81,0	58,5
81,1	60,4
77,5	47,4
76,6	51,4
72,3	46,7
81,8	51,7
74,0	54,3
77,2	43,7
72,3	44,2
80,7	61,9
80,9	56,8
77,4	49,6
80,8	56,6
78,9	50,1
76,4	45,1
76,8	47,5
78,5	52,2
76,5	52,2
79,5	49,7
79,7	55,8
70,1	40,3
80,4	59,9
76,8	52,1
75,4	47,0
80,0	56,2
78,4	56,1
75,6	51,7
80,8	60,1
77,7	51,0
85,5	59,0
77,8	53,1
80,5	45,0
78,0	56,1
78,3	50,8
72,8	44,1
76,1	46,9
78,4	56,3
82,8	58,2
83,0	57,4
79,5	46,0
77,2	46,7
76,3	50,4
81,1	61,6
78,6	55,4
79,0	56,7
80,2	56,5
79,3	49,2
78,8	56,2
77,0	51,4
81,6	61,4
78,4	49,7
85,5	63,7
78,3	54,4
76,3	52,4
75,2	52,8
80,6	49,8
80,3	53,8
75,6	50,6
81,2	58,1
81,4	48,3
86,5	64,7

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