Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
11.14486395 7.947285762 13.6164633 14.15894995 10.20742303 8.425363126 9.788375141 9.530028692 6.440086226 13.81446502 7.047206884 12.02779324 7.611767484 17.5079621 15.89972074 4.914647206 11.51857644 4.184339183 13.16143761 19.78098421 13.38795378 7.63620822 8.608955178 8.841766971 15.99925997 21.80663469 15.87167715 10.3093707 8.072692431 4.419304915 10.19426948 20.96863351 8.925702857 12.76808293 7.295854594 7.076038248 9.474022998 13.78467325 7.948118172 15.21699923 9.498053842 16.68792936 12.45119232 14.98535595 9.037222252 9.51412502 23.04581193 9.702959826 15.7078596 19.63178913 10.15121804 7.165380432 5.085613102 10.4952699 23.25899617 8.605840338 7.107272595 12.28746436 12.28876639 20.34959385 13.25744206 4.955001548 14.3813469 16.29087577 18.71714101 5.912614983 6.139448575 13.51929956 17.65273163 16.95440643 12.86537029 8.075564539 7.364522276 16.51511603 17.96851459 16.09371049 11.26253863 8.726745117 10.22888516 14.50506492 14.3620006 13.79351413 12.90527456 7.686638067 9.587312608 8.343219088 16.15380851 16.88643605 5.058071737 14.81900188 10.55140424 3.81959859 10.29806652 10.98823163 14.97043894 6.387760792 7.047871323 6.119624425 10.07799565 16.32982506 6.249442031 9.214800354 5.066549442 8.337825571 8.78913329 8.543899316 4.941415743 38.72133132 8.78842743 12.94677639 4.859804733 11.0228367 9.896776286 14.500151 2.616927419 18.20227842 19.40895412 12.13391892 8.792077993 17.60461504 9.300022286 21.18916432 12.39936136 9.590051467 14.33240738 9.920294845 9.280755588 15.28593767 16.17429577 8.380377909 8.344644649 10.34019312 12.08338318 9.611779746 8.602125928 10.09163719 17.34792988 12.65458807 12.98670407 5.790970357 14.34066648 13.9334567 10.89451138 4.638616285 12.17921639 8.559058278 18.58857988 12.83251631 16.34059234 8.727279382
Chart options
R Code
library(MASS) library(car) chii <- x chi_df <- fitdistr(chii,'chi-squared',start=list(df=3), method='Brent',lower=0.1,upper=100) chi_k <- chi_df[[1]][1] bitmap(file='test1.png') chi_hist <- hist(chii,breaks=50,col='gray',freq=FALSE,main='Histogram scaled to density',xlab='x') curve(dchisq(x,df=chi_k),add=TRUE,col='red') dev.off() f<-chi_df f$estimate f$sd xlab <- paste('Chisq(df = ',round(f$estimate[[1]],2),sep='') xlab <- paste(xlab,')',sep='') xlab bitmap(file='test2.png') qqPlot(x, dist='chisq', df=f$estimate[[1]], ncp=0, main='QQ plot (Chi-squared 1 param.)', xlab=xlab ) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Parameter',1,TRUE) a<-table.element(a,'Estimated Value',1,TRUE) a<-table.element(a,'Standard Deviation',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'df',header=TRUE) a<-table.element(a,f$estimate[1]) a<-table.element(a,f$sd[1]) 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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation