Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1155168 1144638 1133976 1111920 1330188 1318626 1155168 1046484 1056978 1056978 1068672 1089696 1155168 1133976 1166694 1220472 1526400 1526400 1461096 1395624 1449402 1514838 1526400 1559118 1657302 1591836 1591836 1690020 1962198 1984254 1929480 1798572 1896726 1896726 1907256 1962198 2005446 2027502 2027502 2092938 2344086 2409390 2419884 2256426 2344086 2311368 2245902 2387334 2419884 2365110 2376672 2452638 2736510 2877744 2877744 2812440 2910492 2812440 2757528 2965434 2997984 2920992 3117198 3194196 3423126 3575052 3554034 3542334 3629994 3619332 3488592 3684768 3750240 3684768 3956946 4087854 4392612 4512858 4480272 4414800 4469610 4535046 4316646 4490766 4600518 4556238 4839942 4937958 5352606 5428566 5330544 5385324 5418042 5450760 5242854 5439066 5547744 5439066 5755650 5853708 6278808 6344280 6365304 6475020 6475020 6518268 6322056 6420246 6485550 6365304 6714474 6779916 7215582 7292580 7401258 7499448 7509942 7521504 7325298 7521504
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' 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