Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
161949 161634 161287 160652 167176 166856 161949 158687 159007 159007 159323 159990 159990 157043 155745 157043 161634 160967 154763 149510 148527 146563 147892 149510 148874 147545 144950 147545 149856 149190 141656 138394 135132 132505 132190 134150 131523 130541 129559 135132 135768 132505 123670 119745 113541 110910 112208 114172 114172 112559 112208 117465 121710 119745 113190 109932 103061 98817 102079 105341 105341 101097 100781 106319 109932 108630 102079 97835 88652 85075 86372 91946 92261 84092 87039 94226 97488 95523 86692 80484 73297 67724 70004 74910 73613 66426 68706 75893 79821 77541 68706 64782 58893 52684 53666 58573 59208 53319 54302 62502 64462 61173 49075 42871 34671 26502 29129 32706 32075 25835 29444 38280 42204 40244 32391 26186 19631 12093 13427 15707
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