Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3444 3383 3728 3694 3634 3521 3551 3538 3479 3534 3685 4012 3613 3557 3882 3992 3520 3485 3491 3560 3594 3631 3817 4014 3800 3564 3940 3928 3760 3553 3379 2880 3112 3080 2863 2884 2794 2773 2976 2754 2544 2532 2624 2785 2856 2989 2801 2806 2866 3054 3395 3218 2974 2641 2748 2943 3136 3365 3468 3650 3320 3372 3665 3575 3512 3433 3422 3585 3463 3612 3374 3562 3230 3053 3598 3586 3393 3367 3364 3291 3419 3453 3134 3001 2548 2674 3179 3140 3033 2849 2834 2813 3181 3384 3060 3299 2993 2851 3353 3428 3228 3001 3142 3473 3397 3487 3280 3624 3357 3299 3520 3584 3519 3308 3439 3521 3414 3644 3646 3890 3790 3496 3821 3659 3687 3291
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