Wessa.net

Send output to:


Data:
14.538 18.730 22.485 20.036 16.971 19.028 22.759 20.516 26.195 27.786 24.090 25.447 11.509 15.572 22.518 20.520 17.789 20.205 26.835 25.826 31.934 30.019 30.111 31.566 12.738 19.814 24.776 20.424 18.688 20.418 25.778 25.100 25.859 30.651 26.551 31.124 9.367 17.382 20.995 18.205 17.328 18.157 23.691 26.736 27.165 34.506 29.506 31.956 10.698 18.479 19.785 19.684 18.730 17.970 27.044 22.405 26.482 29.096 25.591 29.743 13.807 19.169 22.782 20.366 17.537 18.004 24.319 22.679 32.034 36.438 29.383 28.029 15.548 17.704 25.316 20.764 18.089 21.705 23.843 22.397 26.105 29.462 27.071 31.514 11.514 17.409 24.561 21.382 17.351 22.780 23.970 26.887 34.777 35.022 35.338 36.845 13.971 22.228 28.806 20.506 22.414 25.814 28.352 29.965 30.212 32.609 30.364 37.702 13.253 21.790 27.192 21.725 22.205 24.693 29.133 35.953 37.863 43.129 39.690 41.086


Sample Range: (leave blank to include all observations)
From:
To:

lowest quantile


highest quantile


step size


Chart options


Title:
Label y-axis:
Label x-axis:

R Code
par1 <- as(par1,'numeric') par2 <- as(par2,'numeric') par3 <- as(par3,'numeric') library(Hmisc) myseq <- seq(par1, par2, par3) hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE) bitmap(file='test1.png') plot(myseq,hd,col=2,main=main,xlab=xlab,ylab=ylab) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Harrell-Davis Quantiles',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'quantiles',header=TRUE) a<-table.element(a,'value',header=TRUE) a<-table.element(a,'standard error',header=TRUE) a<-table.row.end(a) length(hd) for (i in 1:length(hd)) { a<-table.row.start(a) a<-table.element(a,as(labels(hd)[i],'numeric'),header=TRUE) a<-table.element(a,as.matrix(hd[i])[1,1]) a<-table.element(a,as.matrix(attr(hd,'se')[i])[1,1]) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab')

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	Big Analytics Cloud Computing Center