Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1200 1400 1210 1260 1320 1320 1310 1260 1340 1180 1330 1390 1130 1340 1140 1290 1260 1280 1330 1270 1300 1150 1410 1250 1030 1320 1160 1300 1190 1310 1290 1320 1300 1230 1330 1220 1010 1290 1170 1240 1260 1260 1310 1360 1250 1170 1360 1140 1030 1260 1210 1190 1230 1350 1300 1340 1270 1220 1400 1120 1000 1260 1260 1150 1240 1360 1350 1280 1320 1210 1370 1060 1040 1260 1210 1200 1200 1290 1400 1280 1280 1220 1350 1000 980 1240 1190 1200 1150 1270 1410 1420 1260 1300 1410 1000 950 1280 1330 1190 1170 1270 1340 1470 1270 1280 1430 980
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