Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1337 1367 1420 1496 1512 1514 1557 1592 1606 1641 1642 1653 1682 1684 1736 1737 1743 1745 1759 1770 1812 1823 1842 1844 1846 1850 1858 1871 1881 1899 1901 1916 1921 1927 1927 1935 1948 1974 1988 1993 1993 2011 2014 2029 2042 2048 2050 2083 2091 2099 2108 2137 2159 2159 2175 2184 2194 2203 2212 2221 2233 2254 2283 2302 2305 2326 2366 2381 2386 2419 2419 2457 2478 2514 2520 2523 2541 2545 2565 2569 2596 2648 2877 2894
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
par3 <- '0.1' par2 <- '0.9' par1 <- '0.1' 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