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

Fri, 04 Dec 2015 22:19:14 +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/04/t1449267569xdidb2fv53pqbeo.htm/, Retrieved Thu, 16 May 2024 15:46:26 +0000

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

-       [ML Fitting and QQ Plot- Normal Distribution] [] [2015-12-04 22:19:14] [63a9f0ea7bb98050796b649e85481845] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-30.75
-209.8
-210.8
-332.8
-85.75
-206.8
-158.8
-87.75
-138.8
-64.75
434.2
430.2
34.25
47.25
-0.7515
-159.8
-142.8
-197.8
87.25
82.25
1.249
290.2
524.2
760.2
312.2
-62.75
-24.75
-94.75
87.25
28.25
77.25
208.2
-98.75
274.2
515.2
474.2
362.2
50.25
117.2
-148.8
258.2
135.2
247.2
-28.75
60.25
258.2
679.2
936.2
379.2
245.2
-40.75
223.2
285.2
95.25
294.2
194.2
366.2
362.2
400.2
432.2
-109.8
-214.8
-169.8
-335.8
13.25
80.25
61.25
169.2
286.2
359.2
374.2
333.2
-140.8
-361.8
-65.75
-335.8
-198.8
-296.8
-275.8
-174.8
-61.75
-156.8
187.2
481.2
-244.8
-62.75
-310.8
-322.8
-187.8
-408.8
-191.8
-390.8
-90.75
30.25
240.2
556.2
-69.75
-316.8
-306.8
-314.8
-323.8
-197.8
-189.8
-74.75
-202.8
-32.75
282.2
497.2
238.2
-255.8
-154.8
-258.8
-271.8
-95.75
-60.75
-79.75
-74.75
-34.75
332.2
544.2
95.25
-272.8
44.25
-256.8
-161.8
-286.8
-290.8
-163.8
-72.75
-64.75
298.2
489.2
-52.75
-356.8
-211.8
-357.8
-264.8
-195.8
-257.8
-165.8
-169.8
109.2
19.25
223.2
-243.8
-259.8
-175.8
-313.8
-195.8
-332.8
-76.75
-207.8
-36.75
220.2
150.2
8.249
-261.8
-272.8
-261.8
-352.8
-230.8
-159.8
-229.8
-33.75
-123.8
132.2
280.2
361.2
-223.8
-264.7
-103.7
-153.7
-85.7
-245.7
-147.7
-182.7
105.3
165.3
161.3
191.3
35.3
-156.7
-39.7
-211.7
-24.7
-136.7
-99.7
-37.7
122.3
253.3
415.3
441.3

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285185&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	-0.0307473958333373	18.6661555714253
standard deviation	258.645838653547	13.1989651832379

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & -0.0307473958333373 & 18.6661555714253 \tabularnewline
standard deviation & 258.645838653547 & 13.1989651832379 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285185&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]-0.0307473958333373[/C][C]18.6661555714253[/C][/ROW]
[ROW][C]standard deviation[/C][C]258.645838653547[/C][C]13.1989651832379[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285185&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285185&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	-0.0307473958333373	18.6661555714253
standard deviation	258.645838653547	13.1989651832379

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

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