Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.103629933239820 0.0087703074390444 0.0155637426660695 0.0966084256018938 0.0683025606568869 -0.00653314961359896 -0.0094367257568807 0.00935003832683242 0.118449494805129 0.127456615819888 0.00876382231245558 -0.0129824429665246 -0.00415418317902038 0.0266421877779411 0.194032448777481 -0.00711070355878007 0.0205688036309368 -0.00442856389169322 -0.00315893309607418 0.0064652048591256 0.131873973578195 0.241305044412940 -0.0310262850916416 0.0245251063758616 -0.0156222322911219 -0.0206043854226294 0.0326967759710612 0.125988059619388 -0.0435502067574021 0.0123515713707718 -0.00434737918082817 -0.00353479514087951 0.147562133549002 0.0470693504162938 0.105815471844778 -0.0341342674195459 -0.00414417660174138 -0.0064652048591256 0.0468257381816528 -0.225104141948705 3.12331458758308e-05 0.0166685620235825 0.00237689216950798 0 0.0357693020416008 0.0102083822537082 -0.0675670602819736 0.0495991980182566 0.0101167955535715 0.0668105237905223 -0.223001756937975 0.0896858022691731 -0.106531513400583 -0.00678504840645644 0.0134485427007007 0.0300000000000011 -0.0989691535751547 -0.115464366100554 0.0988679532745067 -0.0709498589393718
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