Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0999999358500672 -3.34537991532998 -1.62846400982366 10.6812809214646 13.2825011900209 -18.6736716427229 10.7096677693555 2.04961204104238 9.1204841384269 -7.56482364457695 -5.24700086351533 6.64249905773025 -11.5566665251281 -2.6973152179462 -1.18076251316141 4.63564509879439 8.10285858149781 -2.7705708219563 1.57284332720897 3.31069360539321 22.3408421294330 -22.6551059181226 7.27176172356607 -0.099772547518782 -10.6952695311238 -2.35534469415514 0.932707122913016 26.6532889055699 3.44882443854920 -6.33669243518078 -9.48020249811013 -2.6345965372044 13.6020985812438 2.55813277021340 16.4990835874707 -8.34975231703376 -4.74797377022293 -22.5820000220009 12.0851341143021 24.0507814420286 -2.80263731887658 -21.9666866046142 -6.88357481523707 -12.3261161623532 24.4853067349027 19.8474369491513 7.55724963172844 8.28909320685406 3.87642821675917 -26.3817616627469 12.9004643499501 -4.10721088862945 -10.4955670678746 7.50198292358138 -29.2775026301298 -10.8774144391601 12.3049276483992 -13.4408639898971 -16.8706814738245 11.5488683322063
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