Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
57 56 55 53 73 72 57 47 48 48 49 51 45 39 34 34 53 55 40 22 31 31 39 43 42 31 37 35 52 48 31 19 30 34 37 41 32 25 28 29 56 56 41 39 45 42 50 60 62 48 44 40 67 69 64 69 68 60 69 79 83 71 63 69 95 103 101 105 104 94 111 116 122 103 96 104 124 141 137 137 139 132 150 150 147 130 133 135 148 165 153 159 154 151 174 169 162 152 162 167 173 181 173 178 172 171 196 199 190 176 188 193 200 209 200 207 204 192 216 216
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
par3 <- '0.1' par2 <- '0.9' par1 <- '0.1' 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