Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
6195800.00 6172725.00 6149325.00 6100900.00 6579950.00 6554600.00 6195800.00 5957250.00 5980325.00 5980325.00 6006000.00 6052150.00 6123975.00 6123975.00 6077825.00 5957250.00 6579950.00 6674850.00 6531525.00 6195800.00 6339450.00 6123975.00 6221150.00 6267625.00 6316050.00 6195800.00 6221150.00 6052150.00 6579950.00 6746675.00 6603350.00 6339450.00 6626425.00 6316050.00 6603350.00 6579950.00 6651775.00 6387875.00 6674850.00 6651775.00 7082400.00 6985225.00 6603350.00 6410950.00 6674850.00 6316050.00 6579950.00 6626425.00 6723600.00 6508450.00 6626425.00 6698250.00 6962150.00 6746675.00 6459700.00 6149325.00 6436625.00 5646875.00 6029075.00 6244225.00 6459700.00 6149325.00 6149325.00 6149325.00 6316050.00 6077825.00 5765175.00 5503550.00 5693350.00 4952350.00 5406375.00 5670275.00 5718700.00 5454800.00 5477875.00 5406375.00 5646875.00 5477875.00 5144750.00 4903925.00 5311150.00 4426825.00 5001100.00 5262725.00 5262725.00 4952350.00 4665375.00 4642300.00 4903925.00 4665375.00 4211675.00 3899025.00 4234750.00 3445325.00 4162925.00 4544800.00 4665375.00 4401475.00 4068025.00 4306575.00 4401475.00 4329650.00 3611725.00 3278600.00 3516825.00 2799225.00 3540225.00 3804125.00 4019275.00 3660475.00 3324750.00 3516825.00 3611725.00 3421925.00 2704325.00 2391675.00 2678650.00 1889225.00 2750475.00 3278600.00
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,signif(as.matrix(hd[i])[1,1],6)) a<-table.element(a,signif(as.matrix(attr(hd,'se')[i])[1,1],6)) 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