Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_fitdistrnorm.wasp
Title produced by softwareMaximum-likelihood Fitting - Normal Distribution
Date of computationSun, 18 Apr 2010 10:23: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/2010/Apr/18/t1271586269vcltgmqu9ti5xbe.htm/, Retrieved Thu, 28 Mar 2024 18:02:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74663, Retrieved Thu, 28 Mar 2024 18:02:08 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsFM22,steven,coomans,thesis,normaal
Estimated Impact226
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Maximum-likelihood Fitting - Normal Distribution] [FM22,steven,cooma...] [2010-04-18 10:23:31] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
840,875
1051,8
854,835
849,2
625,1
964,775
887,225
1010,45
1131,25
718,2
1088,5
1271,375
1098,375
1098,375
1195,05
1361,375
1361,375
1100,625
1190,375
1250,485
1087,575
992,05
810
1064,95
937,25
1039
1122,956
1079,5
1079,5
889,5
784,5
793,75
924,5
762,43
811,5
942,94
812,615
911,735
1009,25
1116,01
1116,01
988,16
1067,52
1082,53
1043,215
871,83
904,485
689,56
1082,78
1098,85
713,5
704,5
0
652,25
563
586
538,75
353,6
321,275
388,4
329,6
323
520,25
607,725
803,45
677,25
711
962,5
935,6
722,255
594,25
853,75
766,5
758,05
756,85
685,4
696,525
610,025
708,325
619,1
740,525
730,5
489,75
766,525
690,882
804,975
529,25
743,75
771,15
830,5
600
856,1
702,75
533,775
311,25
590
738
797,05
531,3
820
533,25
633,25
634,275
747,3
220,375
195,75
123,25
161,75
126,75
285,1
461,5
463,625
325,875
177
223
168,45
251,75
131,5
110,375
164,125




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74663&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74663&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74663&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







ParameterEstimated ValueStandard Deviation
mean733.70860833333327.9938360345638
standard deviation306.65710934463119.7946312914644

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 733.708608333333 & 27.9938360345638 \tabularnewline
standard deviation & 306.657109344631 & 19.7946312914644 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74663&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]733.708608333333[/C][C]27.9938360345638[/C][/ROW]
[ROW][C]standard deviation[/C][C]306.657109344631[/C][C]19.7946312914644[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74663&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74663&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

ParameterEstimated ValueStandard Deviation
mean733.70860833333327.9938360345638
standard deviation306.65710934463119.7946312914644



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