Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3415 3500 3670 3275 3085 3450 3330 3085 3330 3450 3680 3675 3905 4280 4020 4175 4685 4470 4325 3775 2965 2815 2595 2915 3135 3470 3675 3905 4025 4000 4145 3780 3165 3220 2530 2385 2310 2825 3715 4205 4925 5900 5645 5330 5150 4625 4085 4195 4345 4680 5255 5215 5270 4770 4020 3660 2605 1880 1360 1000 1550 1690 1780 1430 1480 930 530 550 575 745 905 1080 1090 1330 1290 1335 1205 750 735 300 230 530 595 770 1300 1650 1955 1875 1485 1450 1570 1395 1375 940 730 780 735 915 825 1055 965 980 1040 995 1030 1185 1140 1275 1210 1215 1350 1065 875 810 770 455 330 205 225 455 490 790 1080 1260 1445 1325
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