Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_fitdistrnorm.wasp

Title produced by software

ML Fitting and QQ Plot- Normal Distribution

Date of computation

Thu, 04 Oct 2018 17:24:59 +0200

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Oct/04/t1538666731mehomsjxwxsiqba.htm/, Retrieved Fri, 03 May 2024 23:15:00 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315561, Retrieved Fri, 03 May 2024 23:15:00 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

103

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [ML Fitting and QQ Plot- Normal Distribution] [] [2018-10-04 15:24:59] [fe87f86f8a649e8dd232440b9db78f3e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

6.870752602
18.73439823
14.53658879
8.454985854
14.5908379
29.20071608
15.90673435
18.06956634
7.637295828
5.775644485
12.29701439
10.44462728
18.23188754
19.19381799
6.354321524
26.75171906
14.74464498
12.93771377
18.52571769
6.653823164
9.354078077
11.58489891
21.05420144
8.136432751
10.42860212
8.381939639
12.14414179
4.950715521
10.56358233
7.970291263
14.52760162
7.402795144
6.587751692
14.72538917
15.12145828
15.47073934
15.62770879
7.422243834
7.209448568
22.42097377
4.941289487
7.021529361
11.79098402
10.20327341
8.85933538
11.56027111
13.31408861
11.9991972
14.26011793
10.32898881
11.51776164
11.83843287
13.05711769
11.87826625
14.76461744
11.91863321
4.475529582
10.22282315
4.189110109
13.13881036
16.61417859
13.6147549
12.390155
11.21486667
16.47829182
17.75052353
9.832287646
11.5374093
8.932208102
10.38275455
8.038573166
13.65374779
13.92098484
18.42902949
21.79509262
6.222230302
13.91437421
8.892320714
13.13658174
4.13890119
23.00809453
9.082402578
6.704904099
17.14793919
9.038365909
8.264795055
3.888437895
11.50643447
6.606821618
5.931617643
6.959865547
3.816018533
9.991379529
12.09545494
5.412691887
12.96631895
10.15008739
8.641304835
12.8562665
15.75767371
10.29312951
12.76123524
11.48087232
8.128828521
11.94167114
7.938327529
11.97011525
10.36020163
10.91501763
13.757448
17.76124604
11.20019295
12.86409339
8.333612631
17.27155738
16.88903067
7.949386724
7.95794668
9.57555669
10.26650133
10.94001732
11.61238506
15.38777743
16.536568
8.004787871
12.60726931
13.67440657
11.03744603
11.07013333
16.82056296
4.854718012
16.96453114
21.09756833
11.22651423
17.075707
10.24946455
10.99487875
12.40007967
8.622161101
18.80146337
14.34650442
7.240329718
6.758279384
5.971826927
9.419463913
10.45898291
12.37483488
9.08537533
10.41689447
15.48716624

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	7 seconds
R Server	Big Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time7 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315561&T=0

[TABLE]
[ROW]

Summary of computational transaction[/C][/ROW] [ROW]

Raw Input[/C]

view raw input (R code) [/C][/ROW] [ROW]

Raw Output[/C]

view raw output of R engine [/C][/ROW] [ROW]

Computing time[/C]

7 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=315561&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315561&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	7 seconds
R Server	Big Analytics Cloud Computing Center

Parameter	Estimated Value	Standard Deviation
mean	11.80098793316	0.370740487697989
standard deviation	4.54062510925328	0.262153112911656

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 11.80098793316 & 0.370740487697989 \tabularnewline
standard deviation & 4.54062510925328 & 0.262153112911656 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315561&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]11.80098793316[/C][C]0.370740487697989[/C][/ROW]
[ROW][C]standard deviation[/C][C]4.54062510925328[/C][C]0.262153112911656[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315561&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315561&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Parameter	Estimated Value	Standard Deviation
mean	11.80098793316	0.370740487697989
standard deviation	4.54062510925328	0.262153112911656

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 8 ; par2 = 0 ;

Parameters (R input):

par1 = 8 ; par2 = 0 ;

R code (references can be found in the software module):

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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code