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 softwareML Fitting and QQ Plot- Normal Distribution
Date of computationTue, 22 Nov 2016 15:39:06 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Nov/22/t14798255913tzcbqzgwcieclu.htm/, Retrieved Sun, 05 May 2024 13:49:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296953, Retrieved Sun, 05 May 2024 13:49:00 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [ML Fitting and QQ Plot- Normal Distribution] [Normal distributi...] [2016-11-22 14:39:06] [cedc5386ad7644fa02c81dc221bdf6b7] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5655
5165
5405
5515
5375
5455
6035
5805
6040
6115
6325
6690
5545
5465
5445
5130
4925
5110
5180
5005
5040
4785
4755
5085
4655
4290
4255
4140
4060
4280
4270
4265
4380
4320
4320
4615
4540
4480
4480
4430
4290
4350
4670
4775
4655
4880
4965
5265
5180
5015
4885
4970
4850
4925
5055
4790
4790
4995
4785
4835
4770
4530
4435
4455
4220
4215
4420
4255
4385
4740
4390
4660
3905
3845
3775
3875
3760
3865
3985
3725
4050
4190
4085
4510
4235
4355
4630
4685
4485
4540
4525
4855
5285
5110
5290
5145
5040
4940
5060
5120
5120
5185
5035
5480
5415
5410
5555
5475
5535
5270
5155
5035
5085
5155
5175
5260
4880
5120
4905
4545
4635
4585
4535
4800
5125
4990

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time3 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296953&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]3 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=296953&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296953&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R ServerBig Analytics Cloud Computing Center






ParameterEstimated ValueStandard Deviation
mean4829.8809523809548.680868778472
standard deviation546.44139677862934.4225724273101

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 4829.88095238095 & 48.680868778472 \tabularnewline
standard deviation & 546.441396778629 & 34.4225724273101 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296953&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]4829.88095238095[/C][C]48.680868778472[/C][/ROW]
[ROW][C]standard deviation[/C][C]546.441396778629[/C][C]34.4225724273101[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296953&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296953&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
mean4829.8809523809548.680868778472
standard deviation546.44139677862934.4225724273101


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Default ; par2 = 1 ; par3 = 1 ; par4 = 1 ; par5 = 12 ; par6 = White Noise ; par7 = 0.95 ;
Parameters (R input):
par1 = 8 ; par2 = 0 ;
R code (references can be found in the software module):
library(MASS)
library(car)
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')
print(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()
bitmap(file='test3.png')
qqPlot(x,dist='norm',main='QQ plot (Normal) with confidence intervals')
grid()
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')