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

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

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