Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
38552 33618 31499 33892 137561 37134 32710 32520 33419 135783 35003 34417 32359 35703 137482 38632 33577 33277 35001 140487 38296 34179 32791 35261 140527 36789 35036 33004 35548 140377 38485 34675 33081 36114 142355 37524 34600 33795 36017 141936 37009 32877 32505 34162 136553 38591 33550 30753 33508 136402 36327 33230 32971 32844 135372 35124 32243 30840 34815 133022 36308 33138 31425 34265 135136 37612 31846 31065 33712 134235 36031 32909 32204 34914 136058 34888 33242 32316 35295 135741 37800 34540 32614 35859 140813 39866 34609 32375 34395 141245 35348 33221 33892 36762 139223 41775 35118 33963
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')
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