Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
31025 31068 31619 32020 30467 31960 31389 28863 33143 33350 29079 26505 24975 24644 26626 23977 23898 25583 25974 23529 27491 28053 27913 26706 26788 27600 32770 29623 29300 32152 30700 29463 32709 32823 34073 33551 32168 32833 37341 33747 34482 33309 33057 32809 35316 33989 35799 34508 34646 35203 38084 35005 36734 35716 34543 34340 35094 38730 37805 33815 36486 34960 38054 35283 37361 35536 36103 33886 35416 38053 37181 34787 36074 34966 37482 36109 35520 36123 36256 32456 37748 38461 36344 35865
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