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

Sat, 13 Dec 2014 12:53:13 +0000

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/2014/Dec/13/t1418475222lf2aeu5svrdv198.htm/, Retrieved Thu, 16 May 2024 17:38:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267051, Retrieved Thu, 16 May 2024 17:38: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

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] [Histogram] [2014-12-13 12:53:13] [1e9ea55ca500335a50defe307678d583] [Current]
-    D        [Maximum-likelihood Fitting - Normal Distribution] [] [2014-12-16 16:16:32] [9bd698ecfffbb3f270ebcac6c258c074] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1.05392
-4.38003
1.68564
1.04488
-3.54664
-3.56838
-1.0973
3.11071
4.0352
0.280565
-3.88778
-0.152193
-4.59833
1.44105
-0.388658
-0.661666
1.60859
0.529267
-0.978426
-1.98371
0.389409
-4.23524
3.0134
-3.69722
1.56866
0.753386
-3.41326
3.78982
3.17205
-1.02277
0.329543
-0.42758
-0.127134
-4.4939
-1.10477
-1.41861
1.94621
1.66985
-0.55218
1.77357
-2.49325
-0.00392657
-3.67199
0.50747
1.53499
-0.510477
4.3708
-1.90223
2.84998
-1.34413
3.62441
2.94507
1.1813
-0.494377
0.0862101
0.0158277
3.60471
0.554855
-5.80666
4.34147
0.255476
3.19202
-2.5369
0.467536
-1.45933
2.74868
-3.93889
0.695554
-1.5513
-0.680908
2.17305
1.57027
-0.745077
0.982641
-0.846043
4.46204
-4.08521
2.18738
1.22171
2.10382
1.33694
1.00235
-1.41914
0.126599
2.77974
1.06535
-5.24731
-1.04316
1.55194
2.41307
2.27461
-1.60065
1.56029
3.79709
-4.82802
-1.60367
-1.54846
-2.10759
-2.25947
-3.93671
1.5989
3.79206
-2.19093
2.23945
0.0388132
-0.275799
-1.2289
4.60189
-1.70254
3.42503
-4.89462
-1.86835
-0.775676
0.470672
1.38969
-7.03336
1.40758
2.73662
2.17272
0.532639
-0.440812
-0.755537
2.5338
0.246477
1.04455
2.16284
4.31023
-2.55898
-0.760096
1.33778
0.558967
3.13899
0.597154
0.356976
-0.417547
1.17287
1.4397
0.317868
0.200936
3.04192
-1.50836
2.42324
1.8802
-1.70317
1.84888
0.678294
3.45999
0.227414
0.299637
1.43337
-0.546449
-3.62527
0.178801
-0.0362862
1.54284
-6.48432
1.90048
2.31359
-0.231565
1.33249
-0.17831
2.36712
1.19669
-1.34545
-2.18753
2.22814
2.15755
-0.0539301
6.91914
1.4354
-1.24657
2.29319
0.732644
-0.167038
-2.90493
1.45484
2.35192
-1.87189
-1.02445
-0.976077
3.0202
-0.85838
2.8427
-1.06846
-3.91163
-1.48926
-2.11136
3.35638
0.314765
-3.53653
0.338161
1.74756
-2.57499
-3.6893
0.16091
-2.60733
1.34411
-3.3937
3.04179
-0.513201
0.775836
-1.38094
0.226682
1.00395
0.718173
-0.428344
0.312509
-1.82517
0.0101786
-1.05405
1.20594
-0.553287
-0.155421
-0.590783
3.94099
2.50686
-0.829823
-0.199666
-1.66345
-0.408288
0.203922
-0.786971
1.64101
-1.93625
1.66959
-1.41471
-0.308695
2.4332
-4.59842
-1.82803
1.41813
2.69621
1.96569
1.77455
1.8563
4.37712
3.16089
2.49224
3.4372
-0.561094
-3.11071
-2.63399
-6.82062
-0.79539
-1.15055
-0.00267115
-0.980946
-0.977868
-1.40323
0.426927
1.67856
3.08486
-2.96734
-0.197383
0.907587
-0.0792674
1.09906
-1.11525
-3.15966
-1.00418
0.56347
1.07996
-3.1862
1.13856
-4.811
-5.54416
-2.33365
-6.73701
-1.65842
-2.25021
-4.01845
0.425341
1.81175
0.327383
-0.307673
0.964105
1.4683
-1.54955
-0.144858
-0.965705
1.42259
2.19891
0.618957
-0.361793
0.850687
-3.42402

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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=267051&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=267051&T=0

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

Parameter	Estimated Value	Standard Deviation
mean	6.70629370605781e-08	0.138966059305369
standard deviation	2.35012930978594	0.0982638428895985

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 6.70629370605781e-08 & 0.138966059305369 \tabularnewline
standard deviation & 2.35012930978594 & 0.0982638428895985 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267051&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]6.70629370605781e-08[/C][C]0.138966059305369[/C][/ROW]
[ROW][C]standard deviation[/C][C]2.35012930978594[/C][C]0.0982638428895985[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267051&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267051&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	6.70629370605781e-08	0.138966059305369
standard deviation	2.35012930978594	0.0982638428895985

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code