Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
223.778356481482000 491.188078703703000 -17.429976851852200 -30.066087962963100 51.842245370369700 -333.066087962963000 112.958912037036000 183.592245370370000 -191.899421296295000 25.142245370370800 84.092245370369700 106.158912037037000 -180.096643518518000 9.896412037038320 -378.513310185184000 110.517245370373000 -9.491087962962410 -13.232754629629200 201.417245370370000 -61.532754629628500 -28.191087962961300 130.725578703705000 -60.407754629628500 -342.632754629631000 326.653356481480000 -185.103587962964000 4.195023148147810 254.850578703705000 -309.866087962964000 152.642245370371000 -151.624421296296000 -111.199421296296000 154.183912037039000 95.933912037038700 224.133912037036000 -73.757754629628800 -166.888310185184000 -504.478587962962000 227.445023148146000 112.183912037039000 99.300578703703600 115.933912037039000 -202.457754629630000 103.883912037038000 192.892245370371000 -209.316087962961000 -31.657754629628500 172.658912037037000 51.903356481479900 -74.853587962961700 112.111689814816000 -420.399421296295000 195.300578703704000 104.808912037037000 66.792245370370400 -87.657754629630300 -99.899421296297100 -15.399421296295300 -189.074421296296000 164.658912037037000 -222.846643518518000 295.854745370370000 84.695023148149600
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