Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2700 3900 3850 3800 3800 3700 3950 3950 4150 4050 4200 3850 2950 4050 4200 4050 4100 4000 4100 4100 4300 4250 4300 3700 2900 4150 4300 4000 4100 4050 4100 4150 4200 4350 4450 3900 3100 4500 4450 4300 4350 4200 4250 4350 4550 4600 4700 4000 3200 4550 4700 4500 4550 4450 4550 4600 4850 4950 5050 4250 3550 5000 5000 4750 4750 4800 4900 4950 5100 5150 5150 4550 3700 5350 5200 5100 5050 4950 4950 4900 5200 5300 5500 4750 3950 5400 5300 5200 5100 5250 5200 5250 5500 5550 5600 4800 3700 4800 5400 5200 5250 5150 5100 5300 5650 5700 5800 5150 4100 5700 5900 5500 5800 5450 5950 6100 6400 6100 6150 5500 4500 6400 6150 5800 6150 6050
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
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