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, 22 Nov 2018 10:48:05 +0100

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/Nov/22/t1542880127161h38nan5mnlhi.htm/, Retrieved Sat, 04 May 2024 03:59:27 +0000

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

131

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-11-22 09:48:05] [ecbd56d004b26a859a4efbbbffa43ee6] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-1.92152871829291
0.339602926888891
1.06469140847634
-1.2855233742737
1.76192613619846
-2.01881586809493
-0.260481102891117
2.61742907974239
2.63289717463396
-1.50039399585097
-0.31965781446843
-2.85472113207773
-0.905045144111798
1.65278651579701
2.6292322298441
-0.406087188882457
-0.0240009985545712
1.80279819624208
2.52757455750428
-0.215262591429953
2.78424000995422
4.53540959031976
-9.65545319150482
1.74255491891972
-1.41664755358649
-1.0094661252401
-0.222980020050264
2.13005187412487
-0.916086102619163
-0.59918846088667
2.03730196960213
2.28370968327786
3.22344422322585
-7.68927848687032
-2.51555517007288
-0.196925396039125
1.13429750519945
2.02509676043069
-1.1402329582533
-0.198778226204788
2.9196310194173
1.10110894279807
-2.55894070684876
-5.07746526618239
0.346940021281562
1.59103325895359
-1.1083607942874
0.111094533488471
-0.632740023507118
-1.6226450267862
1.41045983415303
-2.23160133793536
2.98055485650167
-2.90656491383271
0.677175632503351
-2.83528549852084
4.2330540099177
1.56979009787905
-1.67680923742863
-0.246074205660877
3.02093253824278
-1.46422229090892
-3.50757505372253
1.050781134337
-4.12943600780716
0.879071220869752
0.960826958014341
3.35989828876351
-1.1601900266611
-1.50697168195227
-1.24589637542877
2.64764950154021
-1.31794007583464
0.932657509054458
0.565768937991742
2.36517958154942
-1.71982383509266
3.15472600676744
1.3154589083186
-3.06070107200721
1.71206434980189
0.415701208449167
3.35661484007338
-0.220269804664241
-0.017308778557737
0.80313640988589
-2.77929872497292
0.137503808696358
-2.97254749364722
2.17008040182021
0.60780130644207
0.782453574195903
-1.8430743516314
2.90593218006741
-1.12177067837458
-2.35528971346005
0.00069622728220603
0.348179447893822
2.67452005874375
-0.21618547223055
-0.77931208737654
-0.0797110299844284
-1.41852995121463
0.366460722507125
-0.756536300554393
2.24005526736991
-1.67843678789724
-1.39181473418268
1.18148793807664
-2.06301653823687
2.91652097293212
-3.83758864058079
-0.614769369537078
-0.781870561660759
2.38879361964377
3.73163243959741
-0.436781471729159
1.25224925757075
-0.544286983114824
-1.41352833102706
-2.85859245772767
2.30313429476033
0.63677603442539
-4.20893222283484
3.66127014900999
-1.65050085682637
1.7132411704755
1.44600574229723
1.15758794043822
-0.883124806640891
-0.293824893429755
-2.53048082242481

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

5 seconds[/C][/ROW] [ROW]

R Server[/C]

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

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

Parameter	Estimated Value	Standard Deviation
mean	2.30353536119625e-16	0.197495086396379
standard deviation	2.26904579237488	0.139650114841903

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 2.30353536119625e-16 & 0.197495086396379 \tabularnewline
standard deviation & 2.26904579237488 & 0.139650114841903 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=315684&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]2.30353536119625e-16[/C][C]0.197495086396379[/C][/ROW]
[ROW][C]standard deviation[/C][C]2.26904579237488[/C][C]0.139650114841903[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=315684&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=315684&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	2.30353536119625e-16	0.197495086396379
standard deviation	2.26904579237488	0.139650114841903

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Parameters (Session):

par2 = Do not include Seasonal Dummies ; par3 = No Linear Trend ; par6 = 12 ;

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