Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
93166 93517 94547 95299 95121 95583 96138 96647 97311 97644 100299 101130 102239 103667 104494 105944 106956 109156 109528 109813 110939 112182 113137 114506 115197 116142 117478 118678 119808 121210 122372 123266 124020 124922 125863 126898 127522 128062 129630 130919 131175 133387 134512 135423 136395 137384 138344 139342 139885 140560 141457 144577 145505 146767 147602 148490 149516 150688 151012 151614 151779 152062 152432 153634 153989 155114 155448 155514 156552 157472 158928 154948 155178 155396 156479 157562 158255 159138 160067 161112 162009 162941 163463 165473 165805 166524 167426 168593 169452 170386 171281 171950 172842 173644 174380 175639 176169 176642 177225 178180 178771 180337 180740 181299 181768 182304 182670 183241 183106 183039 183447 184915 185144 185787 186243 186518 187156 186083 186350 187010 187057 187019 187487 188280 188756 189574 189996 190251 190925 191499 192172 191639
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