Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
580 610 550 515 555 580 585 545 580 605 625 600 590 605 475 535 560 610 585 560 590 625 620 615 560 665 495 555 545 605 610 610 550 600 660 590 555 650 530 565 580 630 605 595 565 585 685 585 520 670 525 565 575 610 605 575 565 575 720 580 565 675 525 575 560 585 550 560 605 585 685 585 555 660 530 575 580 615 570 550 635 580 690 575 590 685 540 580 615 605 565 555 625 605 685 540 610 680 560 575 590 625 520 590 625 560 715 575
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