Wessa.net

Send output to:


Data:
3167956 3001753 3571343 3990145 4472259 4487988 5021544 4877589 4563348 4452338 3535989 3454304 3331523 3213977 3896807 4121803 4566599 4529566 5172312 5121598 4713449 4656638 3647578 3545823 3388686 3348700 3973721 4156519 4713826 4704148 5175950 5025767 4600637 4560314 3443549 3333873 3072606 2891262 3390581 3888685 4173577 4130139 4851476 4811406 4322719 4274814 3355439 3293039 3114971 3049444 3697355 3213665 4447089 4442139 5119203 5058056 4623783 4666071 3719403 3440349 3466587 3251624 3921482 4466794 4916693 4939490 5627276 5540569 5128892 5024163 3807138 3777434 3675761 3552136 4177498 4568847 5027940 5078079 5759003 5671424 5239374 5100023 3944666 3858569 3670053 3563751 4341934 4779391 5440427 5404974 5934128 5942981 5477811 5288928 4099344 4103791


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')

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