Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1.925116033 -0.4544064903 1.349617082 0.7156961088 -0.5202801944 -0.09299998795 2.145846658 -0.3142517814 0.714321046 -0.7367133801 1.654830279 1.005786577 1.418191397 -0.01916491944 -1.172455688 1.244012885 0.1860980131 -1.431410621 -0.6954454106 0.3214569595 1.65133546 1.188431038 -0.171263781 0.4520400283 -0.4218669669 -0.4750693595 -0.482631857 0.442013418 0.8134369214 1.014473555 -0.006396759655 -0.6512281936 0.09806746596 0.4337608957 1.377312427 1.499041876 -0.2627484776 -0.1523142443 1.135305076 0.8664456577 1.130529445 1.91658385 -0.2090766818 0.8084391305 -1.838962519 0.5628596758 -0.5069882345 0.1626255856 -1.555835031 -1.003012583 0.4442624723 1.702444171 1.435586624 -0.8971129081 2.188934487 -0.04776664867 2.398669405 0.1826752839 -0.240051333 -1.638330574 -1.768744656 -0.9392087767 0.6853572076 -0.1604201685 -0.8481816791 0.5474978013 -0.1458112406 0.6471318137 -0.7550035127 0.2617576163 0.2416676931 0.6503959725 -0.1335007272 -1.186516351 1.493809268 0.9322844048 0.9073898901 -0.6548343605 0.3713888728 -0.2361354497 -1.082257551 0.4328706524 -0.9467127438 -1.064952689 1.089674138 -0.6533805134 0.2992099834 -1.555349039 0.09975245006 -0.3298626818 0.4717821211 1.549839093 0.8107775173 -0.7200202091 2.418018055 0.174934549 -0.1670607192 -0.3159659502 2.210166239 -0.9024706344 -1.149368124 -0.3021865961 -0.5272839136 -0.2167245132 -0.5795048176 1.284017366 0.3539083418 -0.1564528346 -0.6010269597 0.06551765081 1.723015013 -1.203646608 1.2785988 -0.540608347 -0.7682150817 -0.5438384363 -0.4096620907 -0.3495724918 1.547510754 -0.04937915352 1.057030269 3.00628521 1.154908968 -1.965839124 0.5437077888 -0.210467415 -0.04512504741 0.6984656625 -1.195213441 0.1665565966 1.660112508 3.079821655 -1.971865631 -0.4866505343 -0.01236114574 0.6633420394 -0.8239870306 1.018169719 0.6481647151 -1.215935292 0.1228956441 -0.4189216546 0.1323489839 0.4249266162 -0.4098406385 1.010350025 -1.706071435 0.3116116268 -0.1223475962 -0.4842409616
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