Wessa.net

Send output to:


Data:
2277 1849 1800 2082 2144 1775 1936 2230 1813 2076 1736 1786 1660 1419 1506 1316 1622 2311 3570 3326 3259 2930 2135 2044 1863 1836 2098 2184 2366 2077 2524 1829 1960 2237 1756 1795 2081 1854 2138 2476 2155 2292 2628 2076 2799 2196 2443 2565 2063 2070 2539 1898 2139 2408 2725 2201 2311 2548 2276 2351 2280 2057 2471 2379 2295 2456 2546 2844 2260 2981 2678 3440


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')

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