Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
0.8492044664 -0.8446262998 -0.7910760558 -0.05038392024 -0.2464188864 0.1315806453 1.304048419 2.1471768 -0.7652217433 0.05612256356 -0.02958060107 1.064082885 0.8073847572 0.2625724317 -0.4240055919 -0.4077533161 -0.3411788402 1.045206736 1.880861295 -0.8780569991 0.7871569064 -0.4414578601 -0.1765059703 0.3397830636 0.9358026535 -0.9862536837 -0.8961179878 0.323562547 -1.67492219 -0.8280757897 0.5635352221 -0.06601405835 1.18065285 1.134279092 -1.637636121 -1.496735502 0.05886672836 -0.5708510964 -0.04756638118 0.8205903499 0.9689190972 -0.6040829025 -0.1514046988 -0.5855150496 1.291938062 -1.134201109 -1.804010387 0.1320226378 0.4969220385 -0.8604974048 1.134427184 2.014929526 0.6535576334 0.2617652343 0.9596435467 -0.5274432545 -0.2580882611 -0.4072355607 0.08142901944 -0.2482706175 -0.2410010671 -0.3235962342 0.7786330857 1.703470121 -1.377775866 -0.5945255374 1.751045017 -0.1534023138 -0.1303004799 0.4836911735 -1.53185156 2.728200587 1.15743736 0.1846034934 0.3147508541 -0.4190142822 -0.4465829223 -0.5926184688 0.5334891756 0.2775020518 -1.371472238 2.029477685 -0.03579080558 -0.4187608183 -0.6556143828 0.5561622922 0.5802205022 -0.3053990549 -1.261973782 -0.9330650942 0.8214265992 0.1037543972 0.403471966 0.4588104928 -0.2756706425 -0.2796472409 0.7701744764 -2.013519306 -0.1510905933 -0.6798653303 0.178331853 0.09934947626 0.002380532857 1.278397533 -0.2489186341 -0.424555159 -1.24017991 0.6023463328 0.06356630721 -1.047795471 -0.2183267685 0.2603170061 -0.3911210379 0.2541374408 -1.07186655 0.807875283 0.06087753435 0.01735950247 -0.829602939 0.3107903097 0.3338789646 -0.3889948295 0.2987931088 -0.4351169482 0.4392257623 -1.144487017 -0.5722115418 0.6127502856 1.138728894 0.937787458 -1.702132629 1.557363027 0.3949848648 -1.376765489 0.3742867106 -0.3274600019 -0.381431711 -0.2353269653 -0.2572942638 -1.189703324 -1.287900987 0.108120831 0.8016906345 0.1050686051 0.911184978 -0.6045441822 -0.2479050179 1.974810075 -0.5777610165 -0.236047776
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