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 softwareMaximum-likelihood Fitting - Normal Distribution
Date of computationThu, 24 Nov 2011 11:21:04 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/24/t1322152223w0amrbwbbw52rnh.htm/, Retrieved Fri, 26 Apr 2024 20:14:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147051, Retrieved Fri, 26 Apr 2024 20:14:10 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Mutiple regression 1] [2011-11-24 15:26:56] [5b1044653d12da6c563533920760fdbb]
- RMP     [Maximum-likelihood Fitting - Normal Distribution] [f] [2011-11-24 16:21:04] [bbaf0bbad09b34135f8973992e5d67ea] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
13	2	7	41	38	12	14	12
16	2	5	39	32	11	18	11
19	2	5	30	35	15	11	14
15	1	5	31	33	6	12	12
14	2	8	34	37	13	16	21
13	2	6	35	29	10	18	12
19	2	5	39	31	12	14	22
15	2	6	34	36	14	14	11
14	2	5	36	35	12	15	10
15	2	4	37	38	6	15	13
16	1	6	38	31	10	17	10
16	2	5	36	34	12	19	8
16	1	5	38	35	12	10	15
16	2	6	39	38	11	16	14
17	2	7	33	37	15	18	10
15	1	6	32	33	12	14	14
15	1	7	36	32	10	14	14
20	2	6	38	38	12	17	11
18	1	8	39	38	11	14	10
16	2	7	32	32	12	16	13
16	1	5	32	33	11	18	7
16	2	5	31	31	12	11	14
19	2	7	39	38	13	14	12
16	2	7	37	39	11	12	14
17	1	5	39	32	9	17	11
17	2	4	41	32	13	9	9
16	1	10	36	35	10	16	11
15	2	6	33	37	14	14	15
16	2	5	33	33	12	15	14
14	1	5	34	33	10	11	13
15	2	5	31	28	12	16	9
12	1	5	27	32	8	13	15
14	2	6	37	31	10	17	10
16	2	5	34	37	12	15	11
14	1	5	34	30	12	14	13
7	1	5	32	33	7	16	8
10	1	5	29	31	6	9	20
14	1	5	36	33	12	15	12
16	2	5	29	31	10	17	10
16	1	5	35	33	10	13	10
16	1	5	37	32	10	15	9
14	2	7	34	33	12	16	14
20	1	5	38	32	15	16	8
14	1	6	35	33	10	12	14
14	2	7	38	28	10	12	11
11	2	7	37	35	12	11	13
14	2	5	38	39	13	15	9
15	2	5	33	34	11	15	11
16	2	4	36	38	11	17	15
14	1	5	38	32	12	13	11
16	2	4	32	38	14	16	10
14	1	5	32	30	10	14	14
12	1	5	32	33	12	11	18
16	2	7	34	38	13	12	14
9	1	5	32	32	5	12	11
14	2	5	37	32	6	15	12
16	2	6	39	34	12	16	13
16	2	4	29	34	12	15	9
15	1	6	37	36	11	12	10
16	2	6	35	34	10	12	15
12	1	5	30	28	7	8	20
16	1	7	38	34	12	13	12
16	2	6	34	35	14	11	12
14	2	8	31	35	11	14	14
16	2	7	34	31	12	15	13
17	1	5	35	37	13	10	11
18	2	6	36	35	14	11	17
18	1	6	30	27	11	12	12
12	2	5	39	40	12	15	13
16	1	5	35	37	12	15	14
10	1	5	38	36	8	14	13
14	2	5	31	38	11	16	15
18	2	4	34	39	14	15	13
18	1	6	38	41	14	15	10
16	1	6	34	27	12	13	11
17	2	6	39	30	9	12	19
16	2	6	37	37	13	17	13
16	2	7	34	31	11	13	17
13	1	5	28	31	12	15	13
16	1	7	37	27	12	13	9
16	1	6	33	36	12	15	11
20	1	5	37	38	12	16	10
16	2	5	35	37	12	15	9
15	1	4	37	33	12	16	12
15	2	8	32	34	11	15	12
16	2	8	33	31	10	14	13
14	1	5	38	39	9	15	13
16	2	5	33	34	12	14	12
16	2	6	29	32	12	13	15
15	2	4	33	33	12	7	22
12	2	5	31	36	9	17	13
17	2	5	36	32	15	13	15
16	2	5	35	41	12	15	13
15	2	5	32	28	12	14	15
13	2	6	29	30	12	13	10
16	2	6	39	36	10	16	11
16	2	5	37	35	13	12	16
16	2	6	35	31	9	14	11
16	1	5	37	34	12	17	11
14	1	7	32	36	10	15	10
16	2	5	38	36	14	17	10
16	1	6	37	35	11	12	16
20	2	6	36	37	15	16	12
15	1	6	32	28	11	11	11
16	2	4	33	39	11	15	16
13	1	5	40	32	12	9	19
17	2	5	38	35	12	16	11
16	1	7	41	39	12	15	16
16	1	6	36	35	11	10	15
12	2	9	43	42	7	10	24
16	2	6	30	34	12	15	14
16	2	6	31	33	14	11	15
17	2	5	32	41	11	13	11
13	1	6	32	33	11	14	15
12	2	5	37	34	10	18	12
18	1	8	37	32	13	16	10
14	2	7	33	40	13	14	14
14	2	5	34	40	8	14	13
13	2	7	33	35	11	14	9
16	2	6	38	36	12	14	15
13	2	6	33	37	11	12	15
16	2	9	31	27	13	14	14
13	2	7	38	39	12	15	11
16	2	6	37	38	14	15	8
15	2	5	33	31	13	15	11
16	2	5	31	33	15	13	11
15	1	6	39	32	10	17	8
17	2	6	44	39	11	17	10
15	2	7	33	36	9	19	11
12	2	5	35	33	11	15	13
16	1	5	32	33	10	13	11
10	1	5	28	32	11	9	20
16	2	6	40	37	8	15	10
12	1	4	27	30	11	15	15
14	1	5	37	38	12	15	12
15	2	7	32	29	12	16	14
13	1	5	28	22	9	11	23
15	1	7	34	35	11	14	14
11	2	7	30	35	10	11	16
12	2	6	35	34	8	15	11
8	1	5	31	35	9	13	12
16	2	8	32	34	8	15	10
15	1	5	30	34	9	16	14
17	2	5	30	35	15	14	12
16	1	5	31	23	11	15	12
10	2	6	40	31	8	16	11
18	2	4	32	27	13	16	12
13	1	5	36	36	12	11	13
16	1	5	32	31	12	12	11
13	1	7	35	32	9	9	19
10	2	6	38	39	7	16	12
15	2	7	42	37	13	13	17
16	1	10	34	38	9	16	9
16	2	6	35	39	6	12	12
14	2	8	35	34	8	9	19
10	2	4	33	31	8	13	18
17	2	5	36	32	15	13	15
13	2	6	32	37	6	14	14
15	2	7	33	36	9	19	11
16	2	7	34	32	11	13	9
12	2	6	32	35	8	12	18
13	2	6	34	36	8	13	16

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147051&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147051&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147051&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ yule.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

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