Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.00869998436589651 -0.263748556476895 0.194241076621628 -0.0992127551193845 -0.111223437396676 -0.0194875989242727 -0.0805835531838746 0.0570990303162346 -0.236332166351635 0.457502014585202 -0.294217442811213 0.0854818335192403 0.130231455628230 0.192554870567255 -0.0590682740828074 0.133617405062109 -0.0127065844910417 0.0309252364966195 0.124305975225498 -0.219071264259671 -0.0822976591804884 -0.171555534156797 -0.1125072385612 -0.0350344137937757 -0.102207065487857 -0.110069680226654 -0.0398417646459466 0.00642878039347838 -0.0108801694623661 -0.0652729115407373 0.173053234633443 -0.265992626388091 -0.180893959591629 0.347531912402085 -0.358949863269665 -0.292081579538853 0.254471723634632 -0.0918654895909708 0.0747203443613831 -0.0346216634653054 -0.144892464449191 -0.0463472273916903 -0.377703933216611 0.0222193923050149 0.586978350230473 0.415197730162523 -0.0628287442184785 0.127183127028058 -0.0542431929481113 0.0921194036141149 0.108943315432040 0.356120893782340 -0.0290354572869589 0.207049562315344 0.224597067686581 0.0201339814853450 0.00546749714095895 -0.0682679846581893 0.00661972952695322 0.046413509502278
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