Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-0.862918028 -0.5357396682 0.7025423657 0.7967613424 0.4005979966 -0.1297588914 -0.6693075465 0.8773356872 1.268363075 -1.118383686 -0.747627293 0.1765713862 0.1569479667 0.8875086715 -0.48524868 -0.4179981081 1.85620947 -0.345491976 -0.1691755425 -0.7492213275 0.3760925247 -1.502308018 0.1996550111 0.8041291287 -1.159693123 0.9985211341 0.5734874439 -1.931310049 0.4268787105 0.2696100203 -0.4282637037 0.3647147286 0.355577453 -0.2336277557 -0.7581485635 1.341157069 -2.077782297 -1.354459039 -0.1329436843 0.3576288507 0.579835713 0.6705647622 -0.1790370314 -0.5867672006 0.06674139608 -1.336122202 -0.5309392059 -0.3777290965 -0.41855507 0.506045426 -0.8829187695 -0.763172828 2.004458558 0.6817848726 1.006236599 -0.7837742269 1.166973303 0.3728605134 -0.6446654698 1.343363823 -1.833589113 1.097854418 -0.5502326996 -0.1120801276 0.7288501977 -1.101188053 -0.2226237522 -1.183563706 0.6183294507 0.07476223971 0.2111904273 0.5492776818 0.09302249218 0.4621136667 1.23904146 -1.735536126 -0.5917089436 1.261924335 1.240052596 1.748377769 0.366610877 -1.585952204 2.808002969 -0.2066515316 -1.085625784 -0.481846802 -0.8784332616 -0.8578907768 0.7855658132 -0.6983788532 -0.6385724452 -1.020869618 0.192315392 -0.3656861704 2.174267705 1.968827635 0.5623239076 0.09022098435 -0.8163676699 -1.159355312 0.3231656228 0.05598004213 0.5476688087 -0.4789883251 -1.266535474 -0.6137282586 -1.436259124 -0.1878223366 -0.2390535755 1.606090796 1.319918009 -0.3820808209 0.007365513421 0.6598911389 0.3933395802 -1.283877282 -1.31969381 -0.792393599 0.5954541121 -1.921756717 -0.3881402836 -0.532453948 0.7641337292 -0.2643630967 2.324176154 -0.3938350424 -0.3973368494 2.192768935 0.1418911216 0.6747095993 -0.434395945 1.387297058 -1.648572702 1.092738215 -0.2084655812 0.1970289883 -0.592828621 2.678516502 3.082662706 -0.5062440029 -1.815474193 0.2262880424 0.9313170451 -0.2560395684 0.2798356406 -0.3695801694 -2.406690353 -0.843601073 0.3571899308 0.556422793
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