FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_fitdistrnorm.wasp
Title produced by softwareMaximum-likelihood Fitting - Normal Distribution
Date of computationMon, 17 Dec 2012 07:57:56 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/17/t135574908988un4f6cypvotp3.htm/, Retrieved Thu, 25 Apr 2024 12:33:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=200827, Retrieved Thu, 25 Apr 2024 12:33:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact74

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Maximum-likelihood Fitting - Normal Distribution] [Histogram _ likel...] [2012-11-19 14:47:15] [9f6ab6bc6461b94fa20254844eaa346d]
- R       [Maximum-likelihood Fitting - Normal Distribution] [] [2012-12-17 12:57:56] [b92b04f804c749591cd7453f92c6faff] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
107
101
98
98
96
96
95
91
91
90
90
90
88
87
86
83
82
80
77
77
76
76
75
74
74
72
72
71
71
70
69
68
68
68
68
68
67
66
66
66
65
65
65
64
64
64
63
63
62
62
62
62
61
61
61
60
60
59
59
58
58
57
57
57
56
56
55
55
54
54
54
52
52
51
51
51
51
51
51
50
50
50
50
49
49
49
49
48
48
48
48
48
47
47
47
47
46
46
46
45
44
44
43
43
42
42
42
42
42
42
42
41
41
41
40
40
40
40
39
39
39
39
38
38
38
38
38
38
37
37
37
37
37
37
37
36
36
36
35
35
34
34
34
34
34
33
33
33
33
33
32
32
31
31
30
30
30
29
29
29
29
29
28
28
28
28
28
28
28
28
28
28
28
28
27
27
27
27
27
26
26
26
26
26
25
25
25
25
25
24
24
24
24
24
24
24
24
24
23
23
23
23
23
23
23
22
22
22
22
22
22
22
21
21
21
21
21
21
20
20
20
20
20
20
20
20
19
19
18
18
18
18
18
18
18
17
17
17
17
17
17
17
16
16
16
16
16
16
15
15
15
15
15
14
14
14
14
14
14
13
13
13
12
12
12
12
11
11
11
11
10
10
9
9
9
9
9
9
8
7
6
6
6
5
5
5
4
2
2

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=200827&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]1 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=200827&T=0

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

As an alternative you can also use a QR Code:  
QR Code


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

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ yule.wessa.net






ParameterEstimated ValueStandard Deviation
mean38.36678200692041.34454389721372
standard deviation22.85724625263330.95073610732281

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 38.3667820069204 & 1.34454389721372 \tabularnewline
standard deviation & 22.8572462526333 & 0.95073610732281 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=200827&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]38.3667820069204[/C][C]1.34454389721372[/C][/ROW]
[ROW][C]standard deviation[/C][C]22.8572462526333[/C][C]0.95073610732281[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=200827&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

ParameterEstimated ValueStandard Deviation
mean38.36678200692041.34454389721372
standard deviation22.85724625263330.95073610732281


Figures (Output of Computation)

Input Parameters & R Code

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