Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.5901104456 2.495963353 1.216562442 -1.719108755 -1.235399646 0.2941015452 0.7567280239 0.9944271503 1.676418899 0.5892245656 1.750437817 0.0455774311 0.5053333228 -1.116517392 -0.1362761183 1.016644156 0.5460049872 0.9064989866 -1.45689943 -0.7048994689 -0.5741153978 -0.2175154896 1.256897625 -0.4858576556 -1.13001722 0.2442267574 -1.716532082 0.04011501567 1.012515717 0.8939544227 2.046270824 0.5068153246 1.255425331 0.5110764761 -1.004170064 0.3966679308 -0.3262249004 -0.5932037246 1.038566299 0.6687774315 -0.03197956426 -1.174398677 -1.487493921 1.43385487 0.9631543192 -0.6063732128 0.7098639619 -0.3239802175 -0.3452724687 -1.38610456 -0.0534989919 1.021476529 -0.1982554457 1.408431494 2.17825749 -1.44593343 -0.9335663683 -0.292749916 1.164161133 -0.3223052465 0.7008927004 -0.9157786117 1.176510121 1.025631355 -0.2193905158 1.439809949 -0.7421691932 0.4166887472 -1.015142511 -0.269311097 1.024711257 -1.141726833 -1.076033811 0.7462293041 1.018508603 -0.4036884744 1.013466294 -0.06813576164 0.6029325967 0.212053003 0.8951108936 2.259328299 -0.5914966382 0.7657460353 -0.5952295102 -0.8562283263 0.3238844764 -0.01281002487 -0.9127964233 -1.592250703 0.03409079033 0.5131615595 -0.7422976223 -0.707914449 -0.8944281796 0.1717172294 -1.389386855 -1.486386983 -0.3818306357 0.3133696161 -2.625268576 -1.630212966 -0.656049161 1.18913894 -1.984426677 0.8901748379 -0.5270830872 1.375480467 -0.5154798428 1.034819869 -0.1144151233 -0.7539143386 0.014839436 -2.060519005 -0.02755355609 -1.509440581 1.46458048 1.20774692 -0.9996991142 0.6799713856 1.206344416 -0.7499750362 -0.9745371653 0.8792830787 -0.4360697317 0.6694061055 1.353845572 1.306649236 0.7958549914 0.6944035076 0.5479188803 0.03959517756 -0.3742507493 -0.3414328383 -0.01945811508 0.7680679534 0.319627963 -1.473026957 -0.06432859737 -0.4056364579 0.3100354573 -1.5304126 0.2559447285 -0.1200718214 -0.6329334613 -0.5184940569 1.537137806 -0.86096441 0.3162613544 -0.9499318322
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