Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.43654201751303 -2.10834848785855 1.40062961321576 3.40062961321576 -1.54550178033834 -0.144260892155814 -0.126304690007183 0.364717208918502 -2.56345798248697 0.891651512141449 -1.61732658893287 -0.581414184635604 1.90960771429008 -1.56345798248697 -0.599370386784235 -0.108348487858551 1.34676100676987 1.94552011858734 2.4185858153644 -0.0903922857099194 0.382673411067133 1.4185858153644 0.400629613215765 0.891651512141449 1.85573910784419 0.382673411067133 -0.617326588932867 -1.59937038678424 0.400629613215765 0.400629613215765 -1.09039228570992 2.3647172089185 0.891651512141449 -2.10834848785855 0.891651512141449 1.90960771429008 -1.59937038678424 -2.10834848785855 0.400629613215765 -1.14426089215581 0.382673411067133 0.382673411067133 2.4185858153644 -2.56345798248697 1.92756391643871 1.90960771429008 -1.59937038678424 1.92756391643871 -0.0724360835612879 -1.61732658893287 1.94552011858734 -2.61732658893287 -1.14426089215581 0.90960771429008 -2.10834848785855 -1.59937038678424 0.891651512141449 -3.07243608356129 -0.599370386784235 0.891651512141449 -1.12630469000718 2.38267341106713 -2.09039228570992 -2.10834848785855 -0.599370386784235 -1.10834848785855 -0.599370386784235 1.4185858153644 0.418585815364396 0.891651512141449 1.87369530999282 -0.0903922857099194 1.98143252288461 0.963476320735975 -1.56345798248697 -0.108348487858551 -2.05447988141266 0.945520118587343 0.891651512141449 1.40062961321576 2.92756391643871 -3.6352827910815 1.34676100676987 1.34676100676987 1.38267341106713 -2.10834848785855 1.40062961321576 -1.09039228570992 2.3647172089185 0.400629613215765 1.4185858153644 -2.05447988141266 0.855739107844186 0.90960771429008 -1.5814141846356 -0.599370386784235 3.47245442181029 -1.59937038678424 -1.07243608356129 -0.0724360835612879 -0.599370386784235 1.4185858153644 0.855739107844186 1.90960771429008 -1.59937038678424 0.873695309992817 -1.5814141846356 0.382673411067133 2.89165151214145 -2.10834848785855 -1.10834848785855 0.382673411067133 0.891651512141449 -0.581414184635604 -1.09039228570992 1.40062961321576 2.87369530999282 1.40062961321576 0.400629613215765 -2.59937038678424 -0.108348487858551 1.92756391643871 0.927563916438712 0.382673411067133 -0.581414184635604 1.4185858153644 1.85573910784419 1.3647172089185 -5.61732658893287 -2.61732658893287 -1.09039228570992 -1.07243608356129 -1.56345798248697 -0.599370386784235 -4.59937038678424 -1.59937038678424 -2.61732658893287 -1.56345798248697 -0.617326588932867 1.96347632073598 0.382673411067133 -2.10834848785855 -2.12630469000718 1.92756391643871 -2.07243608356129 3.43654201751303 -2.09039228570992 2.40062961321576 0.90960771429008 0.90960771429008 2.4185858153644 2.43654201751303 0.891651512141449 -3.52754557818971 -1.10834848785855 1.89165151214145 0.927563916438712 -4.59937038678424 0.400629613215765 0.382673411067133 -0.581414184635604 -1.10834848785855 1.34676100676987 -0.581414184635604 -2.05447988141266 -1.09039228570992 3.89165151214145 1.85573910784419 -0.0724360835612879 1.92756391643871 -3.12630469000718 -0.108348487858551 -0.599370386784235 -2.10834848785855 -3.07243608356129 2.4185858153644 1.89165151214145 0.382673411067133 0.382673411067133
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation