Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
10698 18479 19785 19684 18730 17970 27044 22405 26482 29096 25591 29743 13807 19169 22782 20366 17537 18004 24319 22679 32034 36438 29383 28029 15548 17704 25316 20764 18089 21705 23843 22397 26105 29462 27071 31514 11514 17409 24561 21382 17351 22780 23970 26887 34777 35022 35338 36845 13971 22228 28806 20506 22414 25814 28352 29965 30212 32609 30364 37702 13253 21790 27192 21725 22205 24693 29133 35953 37863 43129 39690 41086
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.10' 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