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 computationThu, 30 Aug 2012 10:06:35 -0400
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/Aug/30/t1346335610r6bft3zhtg2j6ti.htm/, Retrieved Sun, 05 May 2024 17:55:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=169601, Retrieved Sun, 05 May 2024 17:55:26 +0000
QR Codes:

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

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] [Intrinsic Motivat...] [2010-10-12 11:57:21] [b98453cac15ba1066b407e146608df68]
- R PD    [Maximum-likelihood Fitting - Normal Distribution] [Histo MLR] [2012-08-30 14:06:35] [c53b4e73f301bc561a9fa0b8f84a7890] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
293403
277108
264020
260646
246100
244051
241329
234730
234509
233482
233406
228548
223914
223696
223004
213765
210554
202204
199512
195304
191467
191381
191276
190410
188967
188780
185139
185039
184217
181853
181379
181344
179562
178863
178140
176789
176460
175877
175568
174107
173587
173260
172684
167845
167131
167105
166790
164767
162810
162336
161678
158980
157250
156833
155383
154991
154730
151503
146455
143937
142339
142146
142141
142069
141933
139350
139144
137793
136911
136548
135171
134043
131876
131122
130539
130533
130232
129100
128655
128066
127619
127324
126683
126681
125971
125366
122433
121135
119291
118958
118807
118372
116900
116775
115199
114928
114397
113337
111664
108715
107342
107335
106539
105615
105410
105324
103012
102531
101324
100885
100672
99946
99768
99246
98599
98030
94763
93340
93125
91185
90961
90938
89318
88817
84944
84572
84256
80953
78800
78776
75812
75426
74398
74112
73567
69471
68948
67746
67507
65029
64320
61857
61499
50999
46660
43287
38214
35523
32750
31414
24188
22938
21054
17547
14688
7199
969
455
203
98
0
0
0
0

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'Gwilym Jenkins' @ jenkins.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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=169601&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=169601&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169601&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'Gwilym Jenkins' @ jenkins.wessa.net






ParameterEstimated ValueStandard Deviation
mean126917.2439024394963.07897760981
standard deviation63558.42258765363509.42680063229

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 126917.243902439 & 4963.07897760981 \tabularnewline
standard deviation & 63558.4225876536 & 3509.42680063229 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=169601&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]126917.243902439[/C][C]4963.07897760981[/C][/ROW]
[ROW][C]standard deviation[/C][C]63558.4225876536[/C][C]3509.42680063229[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=169601&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169601&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
mean126917.2439024394963.07897760981
standard deviation63558.42258765363509.42680063229


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