Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
345.0561798 413.1707317 348.9473684 414.2857143 356.1728395 396.9879518 460 408.3544304 506.7948718 476.25 338.4705882 408.7209302 436.2352941 431.25 430.7692308 513.75 534.7560976 449.2771084 525.4878049 432.8395062 461.25 501.4102564 378.4615385 431.6883117 449.6052632 460.2631579 364.4736842 372.6923077 397.375 376.75 440.8860759 391.6883117 353.6486486 512.173913 425.2238806 481.3846154 402.8125 541.1940299 413.6764706 375.5072464 418.8405797 502.8358209 457.1875 486.4516129 487.7966102 524.2622951 382.0895522 378.3823529 472.8787879 415.3125 448.28125 459.1044776 305.3521127 329.7183099 372.4637681 410.3125 415 459.3333333
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation