Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
26.14553406 11.23104843 6.430313847 13.30281555 10.97518269 8.316410716 8.645842753 6.405627394 10.92707389 10.46060949 5.830270637 7.95396027 10.01992799 12.85219048 8.310765003 6.352268199 7.95392192 11.39750028 20.74841947 16.77184856 8.427809782 13.9038826 5.644307033 15.57023845 15.79027353 11.21111747 24.67902882 12.81998144 9.199940902 7.866623539 6.495633146 9.902908776 7.856032152 12.697445 12.38816364 8.417571036 9.88489929 17.70679328 3.763865745 7.124981496 5.700581622 17.49360737 17.53223235 4.971018376 9.439339383 10.09756287 7.032703546 12.82888317 10.99261662 12.10367017 13.70686566 7.556542559 23.45305642 7.605381654 2.511822855 13.50335033 13.13742081 9.908122115 7.205129285 11.17160453 6.801313854 13.80947976 9.462299029 5.902973145 25.19232016 11.44066626 12.63286289 7.340474431 16.49567027 8.777304536 10.09999694 8.108525213 13.43024439 5.679200894 11.35297688 18.35637319 7.590115853 10.2681643 7.057476492 18.11231093 9.603196609 1.848053304 10.34640139 6.731451431 13.46109284 13.21984039 13.56375552 8.900507509 10.03909473 13.00257422 10.57356072 8.744113943 15.50509645 13.98207446 12.54186729 15.50791494 15.68825618 21.54446908 11.96392 9.551923067 23.51397095 22.28698326 6.315843181 6.513011883 25.15825393 5.440408233 17.96760015 5.758041133 13.49426405 9.584894525 10.40312802 12.48179035 10.71930211 24.16549419 13.85137251 18.03034673 8.719640618 4.483435453 13.70665426 14.39232342 5.952844459 8.932124463 12.42515666 10.58079254 15.19174773 8.552049413 11.95431207 8.172021113 10.29254673 11.21190446 10.01896327 11.30017264 12.61158547 11.45594825 11.43091361 6.013861281 7.673500708 21.49553358 7.539171447 8.600632711 10.27356276 15.95100037 15.94848837 10.54600116 9.965676631 13.32382495 6.716075783 16.60622699 12.66811481 9.933139412
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation