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, 04 Oct 2018 13:08:16 +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/2018/Oct/04/t1538651344x9eiz5xop34qoyx.htm/, Retrieved Fri, 03 May 2024 21:51:57 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=315558, Retrieved Fri, 03 May 2024 21:51:57 +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

106

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] [] [2018-10-04 11:08:16] [679f1112dc3b31869254dd82340bfb0d] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

6.647882054
5.977854144
10.99333826
15.76730849
27.19972675
6.246456625
14.0096867
5.712123274
5.509478161
13.09920474
13.74367201
14.35189961
13.22394395
12.44089068
21.64814465
7.031499225
15.60019635
11.98855846
18.9084336
11.34262541
9.04229775
3.663353992
22.8137491
11.60837627
9.505010324
12.38375978
12.81684918
5.57577575
15.05745558
9.155145618
27.03305633
12.85516219
11.14781727
11.14972444
11.46113694
17.25429174
7.298867238
9.71805176
15.27371425
13.58748795
12.39661268
8.909769695
13.81394506
4.438996996
13.71512925
5.847485633
8.846345707
6.5744265
22.80075639
6.979196489
8.735694662
10.32908546
6.292634431
2.982364558
18.48957761
12.99955783
13.89016417
8.960417844
10.22825117
9.358783129
12.05316798
7.109068964
11.66949115
16.64118182
4.997906457
19.39386253
10.58217739
10.18635938
14.33438147
9.891040542
7.823034551
6.825833738
8.822625245
14.30411884
6.401113621
11.90704796
14.14116304
15.5640648
14.25355702
14.63683809
12.27828088
11.09172114
7.654984703
9.535033015
12.87671384
19.8873465
6.811568795
9.725012351
9.573040554
17.84234416
8.792401425
12.2200811
19.22607778
9.960522038
5.600776848
17.04762379
13.14208613
6.481102575
6.495634427
12.69233767
13.21649486
17.34475528
18.05438075
13.35998537
25.92357574
19.22359978
15.64710801
8.840060842
8.121316038
14.70697502
15.84027325
14.80669008
8.956004221
8.95248263
7.891960974
14.36213321
11.68836951
4.139838412
24.6682767
7.710728507
17.99785539
10.29994175
13.13913013
10.80836415
8.085142974
12.65855294
6.063625766
22.45527689
16.07422764
5.003937671
11.86995285
26.93912483
10.50760242
16.94270487
5.958184945
10.19336272
8.840369686
6.58603736
14.12447954
15.58492804
5.279981215
8.561579581
5.33389404
11.24741998
6.249841646
15.06879146
12.16985608
17.99895923
5.81336684
13.09141383

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315558&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.94205894544	0.411114190404244
standard deviation	5.03509996253904	0.290701631876859

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 11.94205894544 & 0.411114190404244 \tabularnewline
standard deviation & 5.03509996253904 & 0.290701631876859 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315558&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]11.94205894544[/C][C]0.411114190404244[/C][/ROW]
[ROW][C]standard deviation[/C][C]5.03509996253904[/C][C]0.290701631876859[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315558&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315558&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.94205894544	0.411114190404244
standard deviation	5.03509996253904	0.290701631876859

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