Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
11201 7804 8918 7874 8374 9099 7860 8000 7930 9079 8620 2513 13991 10095 11445 8792 8716 9607 7843 7221 8242 8839 6874 2478 11351 6480 6809 5464 4791 5179 4605 3809 5366 4402 4225 1719 7064 4820 6150 4971 4295 5713 4588 4253 5275 5114 5450 2088 9228 6060 7322 6147 6102 5988 5095 4971 5883 6211 6352 2581 9787 6187 7456 5127 5615 6243 5161 5439 4939 5349 4959 3080 7695 4965 6179 5166 5012 5094 4855 4272 4658 5146 5346 6009
Chart options
R Code
library(Hmisc) m <- mean(x) e <- median(x) bitmap(file='test1.png') op <- par(mfrow=c(2,1)) mydensity1 <- density(x,kernel='gaussian',na.rm=TRUE) plot(mydensity1,main='Density Plot - Gaussian Kernel',xlab='Median (0 -> full line) | Mean (0 -> dashed line)',ylab='density') abline(v=e,lty=1) abline(v=m,lty=5) grid() myseq <- seq(0.01, 0.99, 0.01) hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE) plot(myseq,hd,col=2,main='Harrell-Davis Quantiles',xlab='quantiles',ylab='Median (0 -> full) | Mean (0 -> dashed)') abline(h=m,lty=5) abline(h=e,lty=1) grid() par(op) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Median versus Mean',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mean',header=TRUE) a<-table.element(a,mean(x)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'median',header=TRUE) a<-table.element(a,median(x)) 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
2 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation