Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
21571 21493 21422 21272 22747 22676 21571 20831 20909 20909 20980 21130 21051 21643 21864 21643 22455 21935 20759 20467 20467 20610 20026 20467 20097 20467 21051 21272 21792 21571 20246 19726 19506 19726 19363 19506 19064 19805 20168 20246 21643 21643 19805 19363 19363 19584 18622 18180 17668 17817 18480 17960 19363 19584 18180 17668 17375 17668 16855 16563 15388 15680 15751 15830 17226 17076 15388 14647 14355 14725 13322 12367 10601 10750 10750 10601 11854 11926 10451 10159 9568 10380 8905 8022 6333 6697 6255 6404 7509 7730 6996 6917 6917 7879 6184 5079 3163 4709 4488 4566 6333 6112 5300 5671 5671 6996 5450 4566 3163 5008 4859 4930 6476 6333 5813 5892 6255 7067 5813 4787
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.1' par2 <- '0.9' par1 <- '0.1' 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