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

1
3
4
5
5
7
1
5
2
3
6
4
3
3
6
5
5
5
1
5
3
4
2
3
5
5
5
2
4
6
6
4
6
3
6
3
4
4
7
5
5
4
6
4
4
2
3
6
4
6
3
4
5
2
7
6
5
1
6
6
2
5
5
6
5
4
6
2
6
5
4
2
2
5
6
6
5
5
5
5
5
3
4
3
4
7
5
5
1
4
4
3
5
5
6
5
3
3
4
5
5
3
5
6
6
5
4
4
2
3
6
6
6
5
6
2
6
5
3
5
4
6
5
4
7
2
6
6
4
4
3
6
5
6
6
1
5
4
6
6
5
4
5
4
3
3
6
2
4
4
4
5
3
5
4
4
6
7
5
4
3
1

library(Hmisc)
m <- mean(x)
e <- median(x)
bitmap(file='test1.png')
op <- par(mfrow=c(2,1))
mydensity1 <- density(x,kernel='gaussian',na.rm=TRUE)
plot(mydensity1,main='Density Plot - Gaussian Kernel',xlab='Median (0 -> full line) | Mean (0 -> dashed line)',ylab='density')
abline(v=e,lty=1)
abline(v=m,lty=5)
grid()
myseq <- seq(0.01, 0.99, 0.01)
hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE)
plot(myseq,hd,col=2,main='Harrell-Davis Quantiles',xlab='quantiles',ylab='Median (0 -> full) | Mean (0 -> dashed)')
abline(h=m,lty=5)
abline(h=e,lty=1)
grid()
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Median versus Mean',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
a<-table.element(a,median(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')