Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
145756 145472 145160 144588 150460 150172 145756 142820 143108 143108 143392 143992 143992 141340 140172 141340 145472 144872 139288 134560 133676 131908 133104 134560 133988 132792 130456 132792 134872 134272 127492 124556 121620 119256 118972 120736 118372 117488 116604 121620 122192 119256 111304 107772 102188 99820 100988 102756 102756 101304 100988 105720 109540 107772 101872 98940 92756 88936 91872 94808 94808 90988 90704 95688 98940 97768 91872 88052 79788 76568 77736 82752 83036 75684 78336 84804 87740 85972 78024 72436 65968 60952 63004 67420 66252 59784 61836 68304 71840 69788 61836 58304 53004 47416 48300 52716 53288 47988 48872 56252 58016 55056 44168 38584 31204 23852 26216 29436 28868 23252 26500 34452 37984 36220 29152 23568 17668 10884 12084 14136
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