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:15:31 +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/t1418649406y5o7bvfftxmxwsa.htm/, Retrieved Thu, 16 May 2024 19:59:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268314, Retrieved Thu, 16 May 2024 19:59:07 +0000
QR Codes:

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

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] [Q1] [2014-12-15 13:15:31] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
36
44
58
44
38
52
43
26
43
47
41
50
14
37
60
64
55
59
44
29
66
55
43
60
48
53
58
47
51
58
53
59
51
52
49
56
42
60
53
55
51
39
66
56
46
37
51
53
49
25
63
64
46
59
54
51
56
51
56
60
51
64
43
60
56
58
52
64
63
58
51
60
49
54
41
56
59
55
51
22
49
62
59
51
50
31
34
45
51
51
50
60
47
53
34
40
59
52
40
69
52
49
58
54
58
50
48
62
55
52
47
52
64
68
58
46
32
63
57
45
61
30
41
44
50
53
63
64
55
44
53
42
47
46
56
64
57
66
55
55
62
46
56
68
29
51
51
39
45
69
66
45
59
60
41
53
46
66
53
58
51
58
58
54
67
56
64
56
56
62
45
54
47
65
59
65
41
56
58
35
62
54
41
52
52
58
58
54
53
53
37
55
55
53
68
74
63
61
57
71
63
61
67
64
48
60
76
66
66
53
69
47
55
66
60
50
77

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=268314&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=268314&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268314&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
mean53.01843317972350.678530175915532
standard deviation9.995373645805730.479793288629573

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 53.0184331797235 & 0.678530175915532 \tabularnewline
standard deviation & 9.99537364580573 & 0.479793288629573 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268314&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]53.0184331797235[/C][C]0.678530175915532[/C][/ROW]
[ROW][C]standard deviation[/C][C]9.99537364580573[/C][C]0.479793288629573[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268314&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268314&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
mean53.01843317972350.678530175915532
standard deviation9.995373645805730.479793288629573


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