Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.0110559842783586 0.181006287912801 -0.0654908351674601 -0.0991949471888573 -0.0748090889590307 0.096689873753544 -0.0474940948831253 0.0592534264394929 0.102389921292495 -0.0690634391619123 0.132547883875597 -0.0214169354887039 -0.0565351382689415 -0.172047870214287 -0.336994568795719 -0.077811825486481 0.0252594380374562 0.0614346924190481 0.0340795989289671 -0.134199569693054 0.202738616896663 0.034437285921759 0.0105181672957061 -0.0378202485456794 -0.106203723341877 0.0763265946459374 -0.00653651219569316 0.127703504568440 -0.112917428637129 0.0993024061026107 0.0555178539199954 0.0226942613033455 0.205833960103328 -0.134525181209755 -0.171034304146362 -0.0151415767605491 -0.088625834016392 0.187264528417567 -0.030145030817287 -0.172135140302623 0.144477597472253 -0.0357060851408672 0.100242729465438 -0.0514995985066645 -0.162539853107235 -0.0274761744158376 -0.0339069907311920 0.0309305649378948 -0.129283281317801 -0.0550746910964919 0.160845434647671 -0.064296555719255 -0.0351847112551551 0.0286425804265576 -0.159905296341210 -0.263909832453104 -0.166309379926603 0.0592082291527449 0.0621340381108958 -0.30512719649016 0.101555769255084 -0.0347019692850342 0.146718124045357 -0.00428579472872487 0.101147118794599 0.0635539609367555 -0.196661941786755
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