Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
7054 8620 8771 11379 12066 12657 27630 29722 29789 30630 31879 32228 32745 33008 33091 33425 33520 34077 34418 34568 34571 34801 34931 35502 36222 36279 36432 37013 37848 37898 37967 38064 38401 38529 38683 38708 39018 39253 39341 39383 39401 39486 39525 39556 40439 40600 40809 40870 40891 40898 41117 41519 41547 41629 41697 41756 41888 42438 43412 44720 44953 45315 45409 45633 47060 47221 48138 48428 49267 50380 50530 50669 51321 52073 56231 68184 68897 68906 69116 70249 70938
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