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

95	88	95	95	81	84
92	98	92	87	90	97
85	89	95	91	91	88
83	81	97	84	87	87
73	88	92	92	89	92
81	95	104	84	85	91
63	79	79	84	81	80
77	91	78	69	80	73
82	80	79	84	75	73
82	91	86	84	84	77
95	85	92	85	91	86
85	94	78	89	87	82
88	86	86	83	90	82
98	82	71	86	72	73
87	107	90	91	96	99
71	97	93	90	88	90
89	78	80	77	73	78
86	91	90	88	86	100
88	74	77	88	67	73
93	95	86	88	89	95
95	97	89	102	94	93
78	112	88	103	88	91
84	80	86	84	77	81
97	98	97	87	89	98
95	102	81	88	104	88
88	100	88	93	89	90
121	97	82	101	107	85
97	92	82	88	96	79
82	114	100	113	111	107
82	88	91	95	84	82
108	96	111	99	83	98
90	91	102	85	82	84
113	114	105	105	105	99
86	91	92	105	100	89
105	114	100	96	111	105
105	89	82	88	90	94
60	103	91	93	87	92
75	83	71	93	90	81
79	74	71	69	67	NA
104	88	89	83	84	86
60	88	82	83	84	90
87	98	105	93	96	101
93	74	71	69	67	73
85	86	91	86	90	88
97	93	105	90	83	90
67	85	82	87	78	84
85	91	86	92	100	89
86	75	72	75	67	73
88	97	98	89	94	98
114	88	80	88	89	82
97	79	84	87	89	77
93	106	109	113	111	107
80	102	80	102	88	84
118	98	112	101	94	93
109	98	86	87	111	96
81	114	112	105	111	107
79	95	90	101	105	95
104	98	96	79	97	89
97	82	84	86	83	82
75	97	94	95	105	92
82	94	112	104	69	100
71	84	81	79	80	75
92	88	105	86	87	94
104	83	77	81	67	83
99	98	105	92	92	92
89	106	112	95	102	102
114	94	91	97	90	98
95	91	92	87	98	94
106	89	72	94	94	83
117	102	100	105	101	107
109	103	103	94	96	107
74	96	89	88	94	91
63	89	86	105	105	83
103	112	112	113	105	100
107	74	71	69	84	77
86	74	73	69	72	74
99	102	99	100	96	92
87	106	85	113	94	100
93	91	80	88	107	92
114	94	88	104	103	93
82	98	95	94	95	89
60	85	86	91	73	86
83	108	92	103	110	97
111	90	96	95	84	82
75	74	71	69	67	73
94	81	88	86	73	93
91	104	98	108	84	97
100	90	108	83	79	93
121	95	103	102	91	89
90	85	81	94	92	86
105	114	96	113	107	89
97	114	112	113	111	107
92	93	95	93	89	90
92	104	92	105	110	104
67	92	103	88	98	96
90	100	95	90	95	93
85	92	94	92	84	104
85	77	79	81	73	83
97	86	91	86	86	92
118	87	87	85	98	83
109	91	82	86	90	83
94	102	97	97	97	96
121	100	92	103	106	84
85	113	112	102	106	107
112	NA	NA	NA	NA	NA
118	NA	NA	NA	NA	NA
93	NA	NA	NA	NA	NA
85	NA	NA	NA	NA	NA
97	NA	NA	NA	NA	NA
121	NA	NA	NA	NA	NA
83	NA	NA	NA	NA	NA
89	NA	NA	NA	NA	NA
92	NA	NA	NA	NA	NA
89	NA	NA	NA	NA	NA
82	NA	NA	NA	NA	NA
85	NA	NA	NA	NA	NA
92	NA	NA	NA	NA	NA
112	NA	NA	NA	NA	NA
79	NA	NA	NA	NA	NA
84	NA	NA	NA	NA	NA
92	NA	NA	NA	NA	NA
118	NA	NA	NA	NA	NA
82	NA	NA	NA	NA	NA
100	NA	NA	NA	NA	NA
87	NA	NA	NA	NA	NA
97	NA	NA	NA	NA	NA
87	NA	NA	NA	NA	NA
70	NA	NA	NA	NA	NA
110	NA	NA	NA	NA	NA
60	NA	NA	NA	NA	NA
81	NA	NA	NA	NA	NA
94	NA	NA	NA	NA	NA
114	NA	NA	NA	NA	NA
85	NA	NA	NA	NA	NA
85	NA	NA	NA	NA	NA
79	NA	NA	NA	NA	NA
82	NA	NA	NA	NA	NA
102	NA	NA	NA	NA	NA
73	NA	NA	NA	NA	NA
78	NA	NA	NA	NA	NA
84	NA	NA	NA	NA	NA
70	NA	NA	NA	NA	NA
66	NA	NA	NA	NA	NA
79	NA	NA	NA	NA	NA
95	NA	NA	NA	NA	NA
95	NA	NA	NA	NA	NA
69	NA	NA	NA	NA	NA
109	NA	NA	NA	NA	NA
100	NA	NA	NA	NA	NA
91	NA	NA	NA	NA	NA
99	NA	NA	NA	NA	NA
84	NA	NA	NA	NA	NA
101	NA	NA	NA	NA	NA
99	NA	NA	NA	NA	NA
104	NA	NA	NA	NA	NA
109	NA	NA	NA	NA	NA
87	NA	NA	NA	NA	NA
88	NA	NA	NA	NA	NA
87	NA	NA	NA	NA	NA
95	NA	NA	NA	NA	NA
92	NA	NA	NA	NA	NA
100	NA	NA	NA	NA	NA

par1 <- as.numeric(par1) #colour
par2<- as.logical(par2) # Notches ?
par3<-as.numeric(par3) # % trim
if(par3>45){par3<-45;warning('trim limited to 45%')}
if(par3<0){par3<-0;warning('negative trim makes no sense. Trim is zero.')}
lotrm<-as.integer(length(y[1,])*par3/100)+1
hitrm<-as.integer(length(y[1,])*(100-par3)/100)
y1<-array(dim=c(dim(y)[1], hitrm-lotrm+1), dimnames=list(dimnames(y)[[1]], 1:(hitrm-lotrm+1) ))
for(i in 1:dim(y)[1]){
tmp<-order(y[i,])
y1[i,]<- y[i, tmp[lotrm:hitrm] ]
}
bitmap(file='test2.png')
pairs(t(y))
dev.off()
y<-y1
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=par2,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,round(r$stats[j,i], digits=2))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
if (par2){
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,round(r$conf[1,i], digits=2))
a<-table.element(a, round(r$stats[3,i], digits=2))
a<-table.element(a,round(r$conf[2,i], digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
}
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Means',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('trimmed_mean.htm','trimmed mean','definition of trimmed mean'),1,TRUE)
a<-table.element(a,hyperlink('unbiased1.htm','unbiased SD','definition of unbiased SD'),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,round(mean(unlist(z[i]), trim=par3/100, na.rm=TRUE), digits=2))
a<-table.element(a,round(sd(unlist(z[i]), na.rm=TRUE), digits=2))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')