Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.00204571084483972 -0.00283067359213242 -0.0084361337759861 -0.00100157883563286 0.00552789133430058 -0.0097773325684587 0.0037008623592977 -0.00642030822837614 0.00719701196840899 0.00262305115364016 -0.00127110740029994 -0.00361637523257659 0.00129717707614950 0.00261719199218297 0.000582724800817553 -0.00167915132702680 -0.00335413275139399 0.00232667127403374 0.00582091392099778 -0.00334066347103107 -0.0041330370803219 0.00774881947593112 -0.00634148135279762 -0.00566099578208234 -0.00405877963621982 0.0085509759075047 -0.00707214396105319 0.010425131510173 -0.00668403745498932 0.00379050813068932 -0.00324993426129308 0.000226742391370897 0.00230434388712998 -0.00281886460445299 0.00337313318632658 0.00840337336449575 -0.00209978150552735 -0.00297878965583557 -8.0538712325838e-05 0.000634354255519234 -0.0085324150918054 0.000335832194829364 -0.00550713035158494 0.00383522501954013 0.00618077616849003 -0.00197969322858899 -0.00498017524803796 0.00113774236948005 -0.0065547872961444 0.000839304818125273 0.00617892965391168 -0.00704587043257149 -0.000296652134801466 -0.003023626102382 0.00101358450056993 0.000322640390587606 0.00241240601474065 0.00813643317548373 0.0163594234620832 0.0143859819509878 0.00578633446837098 -0.00254190249003666 4.37055206252088e-05 0.00349291035208654 -0.000839579699490873 -0.00561011517767522
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