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, 06 Oct 2016 11:17:02 +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/06/t1475746129t7nxn7fwn81jpgm.htm/, Retrieved Sat, 04 May 2024 09:23:53 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296563, Retrieved Sat, 04 May 2024 09:23:53 +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

102

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] [Task 4 -H3] [2016-10-06 09:17:02] [67fe698233d7575d27222b521501ef35] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

26.14553406
11.23104843
6.430313847
13.30281555
10.97518269
8.316410716
8.645842753
6.405627394
10.92707389
10.46060949
5.830270637
7.95396027
10.01992799
12.85219048
8.310765003
6.352268199
7.95392192
11.39750028
20.74841947
16.77184856
8.427809782
13.9038826
5.644307033
15.57023845
15.79027353
11.21111747
24.67902882
12.81998144
9.199940902
7.866623539
6.495633146
9.902908776
7.856032152
12.697445
12.38816364
8.417571036
9.88489929
17.70679328
3.763865745
7.124981496
5.700581622
17.49360737
17.53223235
4.971018376
9.439339383
10.09756287
7.032703546
12.82888317
10.99261662
12.10367017
13.70686566
7.556542559
23.45305642
7.605381654
2.511822855
13.50335033
13.13742081
9.908122115
7.205129285
11.17160453
6.801313854
13.80947976
9.462299029
5.902973145
25.19232016
11.44066626
12.63286289
7.340474431
16.49567027
8.777304536
10.09999694
8.108525213
13.43024439
5.679200894
11.35297688
18.35637319
7.590115853
10.2681643
7.057476492
18.11231093
9.603196609
1.848053304
10.34640139
6.731451431
13.46109284
13.21984039
13.56375552
8.900507509
10.03909473
13.00257422
10.57356072
8.744113943
15.50509645
13.98207446
12.54186729
15.50791494
15.68825618
21.54446908
11.96392
9.551923067
23.51397095
22.28698326
6.315843181
6.513011883
25.15825393
5.440408233
17.96760015
5.758041133
13.49426405
9.584894525
10.40312802
12.48179035
10.71930211
24.16549419
13.85137251
18.03034673
8.719640618
4.483435453
13.70665426
14.39232342
5.952844459
8.932124463
12.42515666
10.58079254
15.19174773
8.552049413
11.95431207
8.172021113
10.29254673
11.21190446
10.01896327
11.30017264
12.61158547
11.45594825
11.43091361
6.013861281
7.673500708
21.49553358
7.539171447
8.600632711
10.27356276
15.95100037
15.94848837
10.54600116
9.965676631
13.32382495
6.716075783
16.60622699
12.66811481
9.933139412

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

7 seconds[/C][/ROW] [ROW]

R Server[/C]

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

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

Parameter	Estimated Value	Standard Deviation
mean	11.4992607115867	0.391902316442579
standard deviation	4.79980352149532	0.277116785519264

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 11.4992607115867 & 0.391902316442579 \tabularnewline
standard deviation & 4.79980352149532 & 0.277116785519264 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296563&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]11.4992607115867[/C][C]0.391902316442579[/C][/ROW]
[ROW][C]standard deviation[/C][C]4.79980352149532[/C][C]0.277116785519264[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296563&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296563&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.4992607115867	0.391902316442579
standard deviation	4.79980352149532	0.277116785519264

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