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, 15 Dec 2014 13:18:17 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/15/t14186495104cg51i3hncgniqb.htm/, Retrieved Thu, 16 May 2024 13:05:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268319, Retrieved Thu, 16 May 2024 13:05:15 +0000
QR Codes:

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

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]
- RMP   [Maximum-likelihood Fitting - Normal Distribution] [] [2014-10-14 18:01:50] [32b17a345b130fdf5cc88718ed94a974]
-    D      [Maximum-likelihood Fitting - Normal Distribution] [Q2] [2014-12-15 13:18:17] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
51
59
60
47
55
57
57
50
58
64
48
58
39
54
58
57
59
63
55
59
61
62
50
55
59
60
62
62
48
53
55
57
62
60
64
66
67
65
72
59
59
58
64
62
63
64
63
65
66
62
66
66
68
63
60
59
50
58
70
66
66
64
69
59
60
66
62
66
68
63
67
63
66
64
65
70
66
69
68
60
72
69
74
70
73
70
57
63
64
61
59
68
63
63
68
59
67
73
66
69
65
68
71
73
72
77
62
67
65
60
61
69
66
67
68
68
65
69
71
64
68
70
65
70
66
73
72
75
73
69
75
66
58
69
68
66
73
73
68
70
71
72
72
75
70
70
69
67
67
73
76
73
76
79
73
78
78
66
68
66
65
69
73
70
71
73
73
72
72
72
73
74
73
75
71
74
75
75
78
75
78
75
75
77
73
75
69
68
72
76
78
71
78
75
79
81
78
79
69
69
74
77
76
78
72
74
80
75
80
68
76
76
77
81
77
84
84

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268319&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net






ParameterEstimated ValueStandard Deviation
mean67.368663594470.510928933041745
standard deviation7.526453168150410.361281313258226

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 67.36866359447 & 0.510928933041745 \tabularnewline
standard deviation & 7.52645316815041 & 0.361281313258226 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268319&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]67.36866359447[/C][C]0.510928933041745[/C][/ROW]
[ROW][C]standard deviation[/C][C]7.52645316815041[/C][C]0.361281313258226[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268319&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268319&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
mean67.368663594470.510928933041745
standard deviation7.526453168150410.361281313258226


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 2 ; par2 = 0 ;
Parameters (R input):
par1 = 2 ; 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')