Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3004 3080 3017 3114 3057 3032 3127 3050 2910 2671 2638 2672 2654 2568 2467 2419 2363 2291 2560 2527 2370 2310 2231 2367 2346 2286 2249 2226 2108 2131 2387 2358 2284 2312 2293 2576 2665 2749 2926 2886 2893 2944 3060 3045 2894 2955 2954 3243 3120 3074 3034 2981 2876 2835 2978 2881 2768 2722 2630 2753 2771 2652 2584 2501 2449 2445 2620 2579 2460 2434 2392 1037 1212 1232 1174 1158 1140 1118 1212 1207 1186 608 627 626 649 619 612 643 623 649 699 693 659 669 668 693
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