Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.4300329325 -0.9083603406 -0.5743386919 1.067815867 -0.8596786585 1.405812353 -0.271570189 -1.112094563 0.7736154596 -1.26832312 -1.790749397 -0.1636900887 1.706227095 0.8626252767 -0.1289662278 -0.1500171619 -1.5427369 1.073173161 -2.206330954 -0.1575756516 -1.368095844 -0.05035107642 0.6170580145 -1.535943348 1.5841246 1.580256687 0.8835214453 -1.778024525 0.9387871103 1.104514828 0.2395812608 -0.04092457036 0.9731123918 -0.3779301735 -0.5028817972 -1.30744841 -0.1424760921 1.460884161 1.553903379 -1.18822494 0.7558676337 0.8048002833 0.1735063378 -0.3644559511 0.7850068059 -1.319521193 -2.375423531 0.3287101296 -0.1662082735 -0.6962878466 1.179500892 0.1781785736 0.2414040855 -0.2148870732 0.4724362337 0.2282850912 -1.664922664 -0.8048225529 0.7167160866 0.2755463664 -0.1728092003 -1.011275858 -0.2183668018 -0.7772139887 1.071739821 0.7887071774 0.1285965909 0.7926356579 1.180180311 -0.470595281 0.6066638884 -0.3995889928 -0.003351582886 1.958982613 0.1074485914 -0.4136373424 -0.06744451337 -2.498567228 0.07940228957 0.8073021743 -0.3394424219 -0.5221133794 -1.0985284 0.5876029821 -0.3320998972 0.6873036992 0.1161308145 0.02957645521 -0.3308620928 -0.6534651863 -0.4782110788 -0.1167771256 -0.1217703038 0.3897610602 -0.8754281625 1.77535712 -0.859992103 0.1273068348 -0.05052044533 0.798110289 -0.07897670395 0.2638284133 -0.2890813378 1.456804843 -0.8402352257 1.275877564 2.342609108 -0.02279366513 -0.02374578305 -0.8511599887 -0.6131330337 0.9721490362 0.2410159413 -0.5267513462 0.2432611152 0.467536733 -0.9965783589 -0.09952768501 0.2766460231 -0.7122808971 0.7794101628 1.957779233 -1.215431569 0.8002424699 -2.301418112 0.2227752533 0.8240498178 -0.9800243485 -1.489331171 -1.142782351 -0.1022559448 0.07261134414 -1.548620717 -0.4997966504 -0.5005312839 0.01754175162 -0.03238267868 -2.479267487 0.5191130626 0.03010966305 1.302077781 -0.3703529733 -1.49308003 -0.05676566042 -1.062784053 2.850943967 -0.2028567498 1.148412687 1.898592136 -0.1475360434
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