Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-913.737775198605 23.1096757663404 456.385648731541 889.128571736973 836.385206042615 -2533.95352697662 -719.35167446997 -3745.06373199603 613.859653253457 659.119496405595 1059.93335663275 165.153227385284 -1259.25875793442 352.916648547945 -952.712549002952 3949.62792687456 2706.88419408659 -1983.44023600318 -5671.75150480296 -4491.18740262067 1977.74056046666 -7402.19548345163 -804.84956566237 -2561.90617124258 9086.02687097775 -2880.53187045752 -5510.78885909259 271.144630465973 -2568.10406759938 -6098.18357994379 5134.60266836802 4903.82157738512 -6164.11643961637 5797.99522829894 2868.48534028214 6908.93382436188 -2973.44012233353 -2043.11546028487 -2440.32738835400 1872.19672137889 -5813.85059764123 9609.8752579018 178.04755499601 -2432.7338999834 -214.086753766809 5446.18743629832 8510.17950026123 5524.61176329784 2640.19381267409 2753.13135132188 8434.31458855555 -3048.13516086747 -2363.04153284340 1655.57706698231 -2477.35519994173
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation