Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
155 0 28 53 30 10 27 38 0 0 152 45 25 38 26 10 24 28 0 0 11 0 4 57 9 0 14 34 29 0 239 25 13 24 17 14 12 148 30 8 64 0 33 28 0 6 25 2 24 14 3 9 53 24 144 13 21 29 13 56 11 1 35 8 37 1 40 17 36 12 15 13 16 49 32 14 3 22 2 39 9 0 79 12 1 4 16 180 0 0 2 19 9 34 0 38 36 0 45 2 11 14 38 0 16 1 13 14 170 3 36 14 9 43 6 36 3 2 29 106 0 6 45 38 18 0 0 0 0
Chart options
R Code
library(MASS) (f<-fitdistr(x, 'negative binomial')) xlab <- paste('NegativeBinomial(size=',round(f$estimate[[1]],2)) xlab <- paste(xlab,', mu=') xlab <- paste(xlab,round(f$estimate[[2]],2)) xlab <- paste(xlab,')') 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,'size',header=TRUE) a<-table.element(a,f$estimate[1]) a<-table.element(a,f$sd[1]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mu',header=TRUE) a<-table.element(a,f$estimate[2]) a<-table.element(a,f$sd[2]) 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