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, 07 Oct 2016 14:19:21 +0200

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/2016/Oct/07/t1475842805qlsio6zifzrg2ux.htm/, Retrieved Mon, 06 May 2024 08:14:18 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296599, Retrieved Mon, 06 May 2024 08:14:18 +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

108

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] [] [2016-10-07 12:19:21] [219800a2f11ddd28e3280d87dbde8c8d] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

8.92600439
11.18983315
15.15418489
14.11880456
15.28077504
9.53331051
11.60258191
13.10620936
10.95274522
7.367486734
13.67353483
16.32432685
10.21641109
16.04977416
12.37465258
15.22545758
6.055932165
8.760086383
11.65973614
15.46954558
10.40099469
5.179650055
4.735518551
19.5104748
9.101756155
16.20988249
8.55986649
9.840926651
7.014262294
17.38323406
10.05798562
12.55533697
10.57891975
12.94808609
16.23862233
12.03152589
8.863673595
18.42662612
14.9553912
8.53267377
17.92693775
13.40957058
18.47677814
4.61287664
9.743447041
11.44675743
8.420156599
8.949688851
21.65437049
13.54208004
17.52469021
11.19308921
14.80175845
12.95479595
10.99337585
8.473232671
16.73196674
18.25524021
9.196435724
10.51477628
6.865328109
7.969207371
16.04957257
18.16342966
15.13648587
12.0548804
15.5195102
9.666705013
24.64418091
12.4125633
7.75791727
14.55111455
8.698440411
6.530144322
12.80679939
16.2058196
13.97385527
14.82838861
13.13084575
10.04075684
10.5604685
13.4650884
7.464618578
9.354471197
5.757039283
11.64823531
10.6082134
10.12404046
11.37613763
5.987546438
7.902640418
9.1381012
9.707726723
16.05058824
14.71446926
10.90421275
11.66283203
12.6471026
12.15994614
6.559419261
9.820930037
8.276987464
7.455666479
11.98128215
11.66775604
10.51146837
13.03626781
15.02424064
14.34725294
5.615040666
15.8361677
27.98832405
10.30015527
14.35646317
12.76147959
12.85429812
13.27909565
5.259282708
15.7442552
10.15052549
24.33079442
4.116574556
9.839516293
9.096336925
7.860827678
6.497887847
5.978174881
16.39506049
11.06536687
13.27400914
18.65681306
7.338222259
3.223280928
6.240787794
6.573200632
11.85012214
8.687893284
10.70592726
11.06187667
7.571816041
10.5696669
14.15552567
8.320909532
8.637101213
23.05819835
15.31800878
4.336777987
12.69330255
12.46058343
10.09910996

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	4 seconds
R Server	Big 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 time4 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296599&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]

4 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=296599&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296599&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	4 seconds
R Server	Big Analytics Cloud Computing Center

Parameter	Estimated Value	Standard Deviation
mean	11.77378854578	0.348097257308505
standard deviation	4.2633033063407	0.246141931155282

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 11.77378854578 & 0.348097257308505 \tabularnewline
standard deviation & 4.2633033063407 & 0.246141931155282 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296599&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]11.77378854578[/C][C]0.348097257308505[/C][/ROW]
[ROW][C]standard deviation[/C][C]4.2633033063407[/C][C]0.246141931155282[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296599&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296599&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	11.77378854578	0.348097257308505
standard deviation	4.2633033063407	0.246141931155282

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code