Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.312330033 0.009995004 0.295646257 -0.303089192 0.317705894 -0.774667791 -0.792455285 -0.737256151 -0.792615022 -0.103254692 -0.483337454 -0.956913885 -0.846353349 -0.765080851 -0.181880976 -0.567384004 0.458949967 -1.084592482 -0.253979902 0.701791272 0.818236832 0.456052157 0.074104935 0.275791233 -0.477487044 -0.332111908 -0.706076846 -0.342106113 -0.538193936 -0.826917102 -0.039307061 -0.343163219 -0.761713269 0.243897876 -0.544587845 -0.368157046 -0.456027302 0.098597925 -0.663962256 -1.004123798 -0.257525654 0.031550618 0.882878401 0.63655095 0.571850909 0.254923185 1.128351059 0.595043508 0.18626974 0.583583804 0.161376723 0.067941595 0.853194934 0.772618858 0.016638009 -0.187641356 -0.133382955 1.142275157 0.777932181 0.416700154 0.467389716 0.488730153 0.569296476 0.663207928 0.388595347 0.693972659 0.142277688 0.681523087 0.255301554 0.511672353 0.654016047 0.251032312 0.530130259 0.152422278 0.348828865 0.353194248 0.129707075 -0.15822426 -0.319798168 0.949650332 -0.205002364 0.531089433 0.325019689 0.388826704 -0.160516627 0.062700579 0.780427355 0.22376635 -0.01722534 -0.124478324 -0.167209445 -0.127058382 -0.43590623 -0.316612043 0.260307372 -0.454875497 -0.842489883 -0.392208712 -0.201080773 -0.798172208 -0.366462777 -0.74323943 -0.127907657 -0.48577647 0.172894288 0.033915608 -0.672168605 -0.410915983
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