Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2132.00 1964.00 2209.00 1965.00 2631.00 2583.00 2714.00 2248.00 2364.00 3042.00 2316.00 2735.00 2493.00 2136.00 2467.00 2414.00 2556.00 2768.00 2998.00 2573.00 3005.00 3469.00 2540.00 3187.00 2689.00 2154.00 3065.00 2397.00 2787.00 3579.00 2915.00 3025.00 3245.00 3328.00 2840.00 3342.00 2261.00 2590.00 2624.00 1860.00 2577.00 2646.00 2639.00 2807.00 2350.00 3053.00 2203.00 2471.00 1967.00 2473.00 2397.00 1904.00 2732.00 2297.00 2734.00 2719.00 2296.00 3243.00 2166.00 2261.00 2408.00 2536.00 2324.00 2178.00 2803.00 2604.00 2782.00 2656.00 2801.00 3122.00 2393.00 2233.00 2451.00 2596.00 2467.00 2210.00 2948.00 2507.00 3019.00 2401.00 2818.00 3305.00 2101.00 2582.00 2407.00 2416.00 2463.00 2228.00 2616.00 2934.00 2668.00 2808.00 2664.00 3112.00 2321.00 2718.00 2297.00 2534.00 2647.00 2064.00 2642.00 2702.00 2348.00 2734.00 2709.00 3206.00 2214.00 2531.00 2119.00 2369.00 2682.00 1840.00 2622.00 2570.00 2447.00 2871.00 2485.00 2957.00 2102.00 2250.00 2051.00 2260.00 2327.00 1781.00 2631.00 2180.00 2150.00 2837.00 1976.00 2836.00 2203.00 1770.00
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