Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5119676 4737614 5425255 5195396 5779583 6298652 6175944 6217653 6086619 5060250 3950207 3096398 3287215 2970037 3436547 3339099 3661160 3675026 3917675 3942501 3848079 3993974 3977059 4406890 4827736 4507189 5249062 5009908 5195771 5079423 5531062 5109363 4773753 5347125 5379543 6114549 6346091 5900935 7265533 6115096 7062343 7027841 6644644 7359822 7192534 7065705 7788175 6934803 7492202 8478866 8748316 8382956 8414863 7501787 8031203 9198243 8500998 9260617 9494903 8791918 8568871 8570003 8066695 7800532 8136832 7713840 7986953 7479868 7917564 8055845 7490221 7648110
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
par3 <- '0.01' par2 <- '0.99' par1 <- '0.01' 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')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation