Wessa.net

Send output to:


Data:
64076 63136 60198 59057 57388 56708 70019 72263 74152 67057 61941 58331 59252 56568 53031 51840 48290 45817 59421 61621 60976 57497 53037 53088 53119 51644 47866 47691 42401 43069 55797 57170 58335 55439 54399 56316 58381 58468 59025 58298 54255 55670 67816 70485 71361 66953 64505 66770 66418 65277 62008 59096 55106 54954 67943 69411 69951 63966 60410 59440 59445 57614 55396 53030 50090 48764 61658 63943 64878 60634 57905 57224 60953 60621 57258 54903 53278 53042 63753 69210 71446 68408 65427 64630 66086 65058 62689 60841 57346 56222 68202 70745 73690 68992 65925 65546 67221 65315 62038 58774 55320 53900 65544 67906 70911 66544 63657 61720


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')

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