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

Tue, 13 Oct 2015 15:54:07 +0100

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/2015/Oct/13/t14447481025zdma3lmrpntmzl.htm/, Retrieved Mon, 13 May 2024 22:44:01 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=282370, Retrieved Mon, 13 May 2024 22:44:01 +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

114

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] [Hoofdstuk 3: Task...] [2015-10-13 14:54:07] [fdcee98729d8ae773847ef0dab21bb59] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

19.21558777
7.948034001
7.584584334
11.67528444
11.3795466
19.79877522
14.04664226
24.84564083
11.99062239
13.8881481
7.585704929
12.54906794
23.66969576
6.719388369
8.528876866
20.56953341
23.44267801
19.60500213
11.37472575
19.94743657
18.11724837
4.949104637
22.9454581
10.33969596
16.80342245
8.04681879
4.979395404
18.50310893
6.010926759
7.592789304
16.72059817
8.339488651
6.493750789
18.06777905
11.3772961
12.36996109
8.604536859
10.41646954
20.54449531
2.879364983
11.54594012
13.7201622
12.37829589
11.55766427
6.452594758
12.3756003
22.62175386
32.94735334
15.11128873
5.54072143
10.45956988
11.48256402
12.86493956
10.58493886
7.522564268
11.12629441
9.506726272
11.35894441
7.944559533
14.41455042
7.986704462
17.48404107
8.506028176
8.237112268
12.2709479
5.190393092
4.987862011
8.638718903
7.873083639
16.94441214
13.53309471
7.88854705
15.44233649
6.534451505
21.90895615
16.79376369
8.655232778
20.83452891
4.98438001
5.629279374
6.035797316
8.217806152
9.329142744
19.37269867
14.77231738
16.92882663
14.34617412
7.4965778
25.15665091
10.72418265
6.815243176
13.89446768
15.78023933
10.65095385
13.80304333
6.221803005
16.72017735
20.55314651
14.44057633
15.75570172
8.607021934
14.74083338
6.318869806
12.41045097
5.203505477
12.49980816
6.28076921
5.212021605
6.432562733
9.084920352
10.0132622
4.095107838
7.154322288
17.18618803
16.303433
8.39976384
9.301452449
9.211039448
9.468324368
19.22658843
13.26104265
3.791715115
12.35102388
9.879638715
10.70158986
9.806719776
9.265922662
13.49795285
5.858336324
8.689987426
9.458992715
12.88359236
9.859687773
4.231154371
4.370803026
17.02547414
18.76475393
11.71592733
10.07316809
15.79839934
10.67029007
15.87341325
9.073165566
12.55653975
13.39003363
11.05078286
8.927773163
10.43239507
11.59013458
14.23300019

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	'George Udny Yule' @ yule.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 4 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=282370&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=282370&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=282370&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	4 seconds
R Server	'George Udny Yule' @ yule.wessa.net

Parameter	Estimated Value	Standard Deviation
mean	11.9703784561133	0.430579484777675
standard deviation	5.2735001570789	0.304465673526104

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 11.9703784561133 & 0.430579484777675 \tabularnewline
standard deviation & 5.2735001570789 & 0.304465673526104 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=282370&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]11.9703784561133[/C][C]0.430579484777675[/C][/ROW]
[ROW][C]standard deviation[/C][C]5.2735001570789[/C][C]0.304465673526104[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=282370&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=282370&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.9703784561133	0.430579484777675
standard deviation	5.2735001570789	0.304465673526104

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