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:03:54 +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/t1475842165igc1xlw0x3dljdm.htm/, Retrieved Mon, 06 May 2024 09:37:11 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296591, Retrieved Mon, 06 May 2024 09:37:11 +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] [] [2016-10-07 12:03:54] [219800a2f11ddd28e3280d87dbde8c8d] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.3669972319
0.4826126414
-0.5180877459
-1.014150855
0.1773863514
0.5603136717
-1.304140974
0.3429982273
0.5963339635
1.908386796
0.301105226
-0.3856240026
0.3072786769
-0.879196829
-1.171287315
0.3462065309
1.634004504
-0.8715566733
-0.1538540532
-0.1452101606
1.469474211
0.3271489905
1.409542788
-0.8720092004
-0.2484629525
-0.2473505
0.06285981059
1.77360377
0.4855119254
-1.697636129
-0.6161072708
0.01459159573
1.313645344
0.00407742289
0.07717208428
-0.2688000354
1.631444437
-0.6685065257
-0.3862665266
0.5499466808
-1.749115188
0.5666602711
-0.5822364638
1.979485754
0.6104939438
-1.790727327
1.600119846
-0.4066528587
-1.467691222
0.432848857
-0.7612729824
0.2595501684
-0.4742910795
-0.4122178406
-0.7941532792
0.417093737
-1.361875264
-2.248732263
-0.4577763724
-0.6006801633
0.8526200591
1.324104426
0.3781055042
-1.195846749
1.032350602
-0.3256286377
-1.598860973
-0.0887844366
-0.5881034384
-0.1720201239
-0.128859975
-0.8541855798
0.6354710098
1.206100306
0.1817394072
0.5898081205
-0.6579975194
-0.5905365498
0.968903123
-0.4606555651
0.2970934387
-0.9504623767
0.7663281504
0.1094751696
2.07185291
-0.3734195623
0.2077126573
0.8856452565
0.268604673
-0.5454347753
-0.2240982478
0.6220570075
-0.7065297948
-0.3670168702
1.098907843
0.9869095056
-1.324173272
-0.9344801488
0.7928062113
0.3545127736
0.9346402928
0.5256069633
-0.1484944595
0.6442771383
-1.008326443
-0.2311506413
-0.4166066869
-0.7934227762
0.1315688919
1.692326441
0.09485651992
-2.244508532
0.5088066966
-1.459230743
-1.679323176
0.348416267
1.201537912
1.159611961
-1.398698429
1.412555334
0.8122922242
0.2949187427
0.8069887017
0.818283799
-0.3844387259
1.940185471
1.0088279
0.9993876763
-0.7477436676
-0.2699832391
-1.303364549
0.1201777454
0.9710416331
0.3806772048
1.543725286
0.289479347
0.4165421071
0.1775186785
-0.2814457531
0.8214961204
-0.03557347201
1.509281636
-1.256757507
1.543549697
-1.396634528
-0.550727773
0.8989692606
0.1506936664
0.3638643325
0.3834138005

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	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 time3 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296591&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]

3 seconds[/C][/ROW] [ROW]

R Server[/C]

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

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

Parameter	Estimated Value	Standard Deviation
mean	0.0686421820713333	0.0762475089336553
standard deviation	0.933837455228786	0.0539151306155695

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 0.0686421820713333 & 0.0762475089336553 \tabularnewline
standard deviation & 0.933837455228786 & 0.0539151306155695 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296591&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]0.0686421820713333[/C][C]0.0762475089336553[/C][/ROW]
[ROW][C]standard deviation[/C][C]0.933837455228786[/C][C]0.0539151306155695[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296591&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296591&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.0686421820713333	0.0762475089336553
standard deviation	0.933837455228786	0.0539151306155695

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