Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
960 1160 1040 1030 1080 1020 1000 1060 1000 980 980 1080 980 1290 1030 1000 1130 1030 900 1040 1080 1010 890 1080 950 1310 1060 1070 1150 1060 950 1090 1080 1040 900 1000 1020 1250 1060 1050 1180 1100 1020 1090 1020 960 860 1070 1040 1310 1040 1010 1130 1030 930 1070 990 970 850 1130 1060 1380 1000 970 1080 940 960 1070 1010 1020 750 1140 1040 1420 900 900 1090 950 930 1080 1000 1010 770 1100 1100 1390 930 940 1100 1030 920 1080 1000 1070 830 1100 1170 1330 980 910 1030 970 960 1100 960 1080 730 1140
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