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

Maximum-likelihood Fitting - Normal Distribution

Date of computation

Mon, 09 Nov 2009 13:03:03 -0700

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/2009/Nov/09/t1257797037r9g7ld8lyxdxmvf.htm/, Retrieved Tue, 16 Apr 2024 18:08:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54976, Retrieved Tue, 16 Apr 2024 18:08:48 +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

191

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

-     [Maximum-likelihood Fitting - Normal Distribution] [3/11/2009] [2009-11-02 22:18:38] [b98453cac15ba1066b407e146608df68]
-   PD    [Maximum-likelihood Fitting - Normal Distribution] [] [2009-11-09 20:03:03] [9f6463b67b1eb7bae5c03a796abf0348] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

100
96,21064363
96,31280765
107,1793443
114,9066592
92,56060184
114,9995356
107,1236185
117,7765394
107,3650971
106,2970187
114,5072908
98,0031578
103,0649206
100,2879168
104,6066685
111,1544534
104,9874617
109,9284852
111,5352466
132,4974459
100,3436426
123,0983561
114,2379493
104,569518
109,0833101
106,9843039
133,6769759
124,8537197
122,5132349
116,8013374
116,0118882
129,7575926
125,1973623
143,7912139
127,9465032
130,2962757
108,4424631
129,3675118
143,6797622
131,8844618
117,6186496
118,9560695
104,8202842
134,624315
140,401226
143,8005015
153,4317823
153,2924677
127,3149438
153,5525216
136,9276493
131,7730101
144,3391845
107,4208229
113,6249652
124,2221603
102,0618557
96,36853348
111,6838488

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'George Udny Yule' @ 72.249.76.132

\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 & 2 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54976&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54976&T=0

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

Parameter	Estimated Value	Standard Deviation
mean	118.50128479	2.03717028702206
standard deviation	15.7798531900501	1.44049692438505

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 118.50128479 & 2.03717028702206 \tabularnewline
standard deviation & 15.7798531900501 & 1.44049692438505 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54976&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]118.50128479[/C][C]2.03717028702206[/C][/ROW]
[ROW][C]standard deviation[/C][C]15.7798531900501[/C][C]1.44049692438505[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54976&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54976&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	118.50128479	2.03717028702206
standard deviation	15.7798531900501	1.44049692438505

Figure 1

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code