Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3640 3700 4420 3680 4140 4720 4300 4200 3320 3940 3820 3840 3900 3720 4160 3480 4880 4600 4120 4200 3560 4220 4020 3980 4140 3880 4020 4000 5360 4960 5300 5120 4580 5300 4940 5080 4680 4380 4960 5040 5720 5300 6100 5580 5840 5460 5240 6380 3960 4460 5020 4880 5280 5720 6040 6280 5840 5580 5020 5860 4680 4760 5440 5000 5440 5740 5160 5660 5020 4920 4860 5300 4180 4020 4920 4900 5240 5160 4900 5820 4600 4520 4260 3980 4180 3880 4800 4360 4920 4800 4520 4700 4000 4140 3860 3860 2980 3140 4080 3940 4180 3960 4180 4160 3780 3860 3300 3460 3120 3340 3880 3660 3640 4060 3520 3540
Sample Range:
(leave blank to include all observations)
From:
To:
Color code
(?)
Number of bins
(?)
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par2 <- '0' par1 <- '8' library(MASS) library(car) par1 <- as.numeric(par1) if (par2 == '0') par2 = 'Sturges' else par2 <- as.numeric(par2) x <- as.ts(x) #otherwise the fitdistr function does not work properly r <- fitdistr(x,'normal') print(r) bitmap(file='test1.png') myhist<-hist(x,col=par1,breaks=par2,main=main,ylab=ylab,xlab=xlab,freq=F) curve(1/(r$estimate[2]*sqrt(2*pi))*exp(-1/2*((x-r$estimate[1])/r$estimate[2])^2),min(x),max(x),add=T) dev.off() bitmap(file='test3.png') qqPlot(x,dist='norm',main='QQ plot (Normal) with confidence intervals') 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,'mean',header=TRUE) a<-table.element(a,r$estimate[1]) a<-table.element(a,r$sd[1]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'standard deviation',header=TRUE) a<-table.element(a,r$estimate[2]) a<-table.element(a,r$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