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

ML Fitting and QQ Plot- Normal Distribution

Date of computation

Thu, 31 Dec 2015 08:53:36 +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/2015/Dec/31/t1451552066mekbhtu8rgffcaz.htm/, Retrieved Thu, 16 May 2024 09:37:43 +0000

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

180

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] [] [2015-12-31 08:53:36] [85088361cc0f17e8ae42c599c79c3ce4] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

23.39891534
18.63114362
24.00129749
24.33538561
6.95482788
12.18191325
11.89725912
17.45817011
15.49730749
9.960904775
16.94420457
13.6069243
18.05578654
8.777212905
23.75095371
10.31207143
11.07382298
10.7287512
10.06054204
16.39177569
9.614206768
6.792412037
11.0365405
15.92092122
9.089997025
9.93350091
6.553551371
18.80488254
16.91677505
7.343347313
5.922881844
12.26159859
7.235097614
12.47194813
5.785021967
18.56666722
7.548414035
11.45270984
11.30990807
6.013265179
5.580306869
13.92859886
10.91947325
9.457567421
12.43574602
12.09653498
6.543827211
16.16201855
10.54940303
8.662311013
13.87415811
9.953881414
13.45731439
16.38102028
8.031509898
15.04389651
24.93893615
26.16128085
19.59722658
13.24903804
11.71539707
13.53636755
17.22290005
18.82828296
7.63856443
12.39385729
13.39879327
10.90695462
20.43530049
13.85424103
10.12430535
12.30901011
10.68267685
18.17481666
13.6455429
8.293191638
15.48548613
13.13829908
5.165947023
14.16079
7.686606567
15.84446181
14.35449417
19.20850347
8.592434347
13.64796282
5.985492502
11.59232165
7.611839599
5.730280063
10.8538071
10.3257791
3.745127595
8.832104486
15.89283095
10.92540952
12.3806472
12.81077899
18.46291621
15.37330663
14.94089764
8.803524171
8.407980358
11.93612717
6.732044502
5.083866982
11.32737544
13.22646389
10.3614717
24.87354175
17.6590915
11.18118681
8.159995546
10.96346593
21.45471171
13.61758714
10.76204676
13.50971361
8.859111182
4.810963284
7.222062831
13.16355922
11.70148635
20.42865622
13.5356216
17.35043175
8.814912113
8.150653972
4.509165267
5.552187288
12.97798644
20.00705654
8.00470952
10.43162045
13.16061471
12.61937991
11.06433482
27.25073699
21.52164253
17.0676557
11.38675693
7.547566198
12.16023988
9.994669174
6.204025092
10.82881846
9.987451096
14.33804186
5.786691871

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	3 seconds
R Server	'Gertrude Mary Cox' @ cox.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 & 3 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=287226&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=287226&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=287226&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	3 seconds
R Server	'Gertrude Mary Cox' @ cox.wessa.net

Parameter	Estimated Value	Standard Deviation
mean	12.4968093814497	0.405321702368815
standard deviation	4.9475819022288	0.286605724307065

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 12.4968093814497 & 0.405321702368815 \tabularnewline
standard deviation & 4.9475819022288 & 0.286605724307065 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=287226&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]12.4968093814497[/C][C]0.405321702368815[/C][/ROW]
[ROW][C]standard deviation[/C][C]4.9475819022288[/C][C]0.286605724307065[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=287226&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=287226&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	12.4968093814497	0.405321702368815
standard deviation	4.9475819022288	0.286605724307065

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 8 ; par2 = 0 ;

Parameters (R input):

par1 = 8 ; par2 = 0 ;

R code (references can be found in the software module):

par2 <- '0'
par1 <- '8'
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')
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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code