Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
12801024 1024768 1120700 1024768 1280800 12801024 1280800 1024768 1280800 12801024 1280800 1280800 12801024 1688949 1440900 16001200 1280800 1280800 1280768 1176735 1280800 1503845 1440900 1366768 1280768 1024768 1280800 25601440 1280768 1024768 12801024 1280800 1440900 1280800 1440900 1024768 1440900 1143857 1280800 1440900 1280800 1366768 1024768 1408880 1366768 1176735 19201200 1257785 1280800 1280800 1440900 16801050 1440900 1024768 1140641 12801024 1280800 1280800 1280800 1280800 1440900 1280800 1152864 12801024 1280800 1440900 1280800 12801024 1440900 1280800 1280800 1440900 1280800 12801024 1600900 1024768 1366768 1280800 1280800 1440900 1366768 1280800 1024768 1280800 1440900 1280800 1280800 1408880 1280800 1600900 1600900 16801050 1440900 1440900 917550 1280800 1760990 1280800 1280800 1280800 1024768 1366768 1440900 1280800 12801024 19201080 1024768 1024768 1600900 1117698 1440900 983737 1024768 1024640 1280800 1440900 1280800 1280800 1280800 1440900 1280800 1024768 1024768 1152864 1280768 1024768 1366768 16801050 16801050 1280800 1366768 1024768 1440900 1024768 1280800 1280800 1280800 1024768 1280800
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation