Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.00819998879154839 -0.120967670308144 -0.277252206078327 -0.340075409519058 -0.110641320445519 -0.0303596350042157 0.508640888257775 -0.100685334612626 0.0094199753658303 0.0488182269754566 0.060795713503559 0.122970399201974 -0.0809480065050388 -0.0561312991806065 0.168001910581593 -0.00924310887256644 0.193426525332548 -0.369826350592351 0.0794983033953783 -0.0762366929623715 -0.110814121319707 0.217226211866436 -0.129037070012289 0.138227908576819 0.205376841124817 0.100202513387229 -0.00437734769909356 0.176093541195532 -0.351109673779038 -0.210623115953763 -0.305050382805144 -0.186573402030247 -0.0100167661901394 -0.222318827072791 -0.104566913087296 -0.0346528812610764 0.0392243226725618 -0.115911766404744 -0.108706760258964 0.164819623487942 -0.0902130479769409 -0.190777819490078 0.646925377287556 -0.177486886282070 -0.338481793084492 0.242024117636875 -0.0294386100929851 0.205216110963574 0.051071914647202 -0.111476041968906 -0.177731230748584 -0.093704600042116 -0.0526114726360525 0.445289752359001 0.393231706821237 -0.372033693995526 -0.0341861651058026 -0.178150505664018 0.162912903999725 0.1553876008421 0.219769368459662 0.13089608117716 0.289422474059555 0.207796869270802 0.212374128958768 0.128532888475965 -0.0329565406285681 0.0397518330978241
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