Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
564410 658506 574787 611567 565210 638288 524970 505151 605350 517957 510879 622942 459903 486911 545974 481494 492324 609265 573243 524622 540071 564556 465319 458048 492603 606596 776475 749810 832426 895273 643875 348031 301771 411429 350941 425245 447041 449723 514318 445044 532552 469484 442289 532681 524463 590857 487590 612157 598030 577042 755394 697253 476835 510995 527816 482667 531528 628748 472131 445430 551715 561949 769474 583410 480271 576444 550457 534892 541769 741041 482062 586176
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