Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.00286886798023998 0.0545881345142277 -0.0305104861473615 0.00840983758596162 0.0240144865918608 -0.0205394593423773 -0.00757567582202867 0.0185539459342379 -0.018762486375258 0.0398703782437324 -0.0499637835203473 0.0326183780271294 0.181259243512534 -0.101862377377321 -0.0582237846033622 0.141978270112208 -0.0299919991335882 -0.173050703071514 0.136538701771896 0.0333606496555596 0.0368848648355935 -0.0725249727505166 0.145934810336627 -0.150423566607490 0.0802939448512241 -0.0817907019884996 -0.0813099465840463 0.102287459125775 0.0336481087813327 -0.15621578373695 0.159761728804777 -0.0155097285881749 -0.136158594939990 -0.0294323250443833 -0.0704460540657621 0.153388107698319 -0.186308431443085 0.236041944634622 -0.07321426859599 0.0264452964952824 -0.154287459125773 0.0897544855088474 0.00232443317590647 0.181201297145091 -0.0342939448512247 -0.150950054498971 -0.456885622406074 -0.312232543040254 -0.0423968661352117 -0.00866183780271257 0.116769729671189 0.386540216912858 0.0552897318372156 0.154424324177971 0.0116843252609852 -0.261352648789148 0.271905079582424 0.100375893817901 -0.0139782701122088 -0.00446054065762314
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