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, 01 Feb 2018 09:34:30 +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/Feb/01/t15174740928h85yu1fbf6zkkv.htm/, Retrieved Mon, 29 Apr 2024 06:41:34 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=313657, Retrieved Mon, 29 Apr 2024 06:41:34 +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] [] [2018-02-01 08:34:30] [4d6b7e4aa0a442355d9e4013f368adc5] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

6.23998220986803e-08
6.73997811573616e-08
7.60997542154936e-08
6.73997752983408e-08
7.44997587770688e-08
7.25997611574985e-08
6.04997964669562e-08
6.60997856762231e-08
7.64997536310671e-08
7.67997483280377e-08
7.69997476295436e-08
7.09997664888008e-08
4.92450940273784
0.748538550877904
1.67134719363734
1.1674919404652
0.520307217183484
2.99986069221077
0.997391184395683
1.07856110022285
-1.1542805865913
1.75554238291658
-1.6930740219467
-0.349266148505962
-6.20791868320725
-1.73241096021045
-2.5910000757831
2.05996795031752
-3.09226144553339
-3.87626903136578
1.44421836388137
-3.36377526600015
3.66904921174102
-1.35840314437767
1.60683061492404
2.37940636685089
-0.581047292220416
1.1111799096644
0.0251334062130069
-1.67881734355095
-0.677303607469234
0.875210276311402
-1.09330543699026
-0.245301183681121
2.88172175711834
-1.92402339038908
0.926013876199088
5.37829916331647
-8.62400277044232
4.06610523449666
3.74490195852652
-1.11732626465973
3.07822585702871
4.45202978884677
-1.97599534849998
6.83347632082203
1.65996689012275
0.987360506167014
8.96595360025568
1.81593141260955
3.48930861775926
0.71132743947529
-0.255578096438445
0.332381600133773
3.89409253309934
-1.47571102933134
-4.59790080036197
2.18805843932767
-1.19649364635236
-2.52870685503826
3.82423113565338
-3.12816068576967
1.28854257663271
2.30405701459059
4.85513473397424
-6.91335461892786
11.9146539888329
-3.47433671169317
3.03980658568901
2.57083913520364
-0.787991246962335
8.12029245469296
0.950520709888505
-3.70453045351889
5.60938966703816
-1.08189472901955
0.386212753526811
2.70298964814683
1.74580206913916
0.82533734749604
5.21570986870477
2.12331441645796
-1.7527520328605
7.07331808208477
-1.65361700419775
-2.40751802215873
5.27518419762994
4.28689775095597
-4.4946238629835
10.4596299374032
-3.08393663033073
0.929457230137272
4.82417710356184
-5.35185562273246
7.57682624109886
-6.01761834402429
-7.85933466910049
-1.72091982996201
-16.201451014966
-9.00143891643225
-8.10076284654047
-14.8698546829745
-5.49218381892524
-12.5479965617152
-7.63208147243832
-4.57457029949962
-11.4473178117911
-8.53171309596137
-1.65154596837241
-7.1895461035471
1.78777908751287
2.88956933086369
4.71407916051317
2.06428436292111
-0.809162104699487
7.8399330400331
-1.45398642057698
3.57281693750583
2.60102345995249
-0.592570206402998
4.93064894677836
2.09582090351085
0.217016716068528
-0.547055498214033
8.11231355674732
-5.70274443414419
10.8872436241275
-13.1763268489609
-0.383297519060102
3.14126602820198
-3.48869092430141
-4.85684649706277
-1.85942364363443
-4.84080981131437
3.06903231784133
-0.150041930251053
-3.56853059126608
-2.69662171005212
-7.30698267758395
3.03089247517555
0.298624581294344
-4.30003719476228
-6.2977910109962
3.02204829987859
-4.09867009038974
-6.77868658220258
0.260201687286347
-9.60954516082544
-6.50056078557561
4.86522935602656
-3.4542483089557
-3.30351246684965
3.31221675416145
-8.11185531243108
-0.903473893833484
1.77774393545725
-2.98671536059176
1.29942000642393
-1.2660997720497
0.918154819317068
-8.17428704386263
1.87351949819633
-6.60887735020907
0.722930911526705
-5.65872784820343
-5.83024400366243
3.11731051897606
-4.47094562496083
-4.90966090533503
-1.30813678220561
-2.7545214237902
-7.31194608952947
0.955846128133066
-2.71433756455758
-6.94016386382211
0.842008106431304
-5.54916818102367
-0.684428746800241
-2.64593223558543
-1.87222610464876
1.90425606407742
-1.58102637770759
-0.022273759753989
5.17399508204934
-2.14539578487048
2.61424166319861
-0.341427390595857
2.89469805280763
-4.34805760318588
7.65061876766135
-4.34108332193983
-3.73991592890663
0.534144923037814
7.02693561365816
-2.6638049568639
0.518318767605605
4.23828987204755
-9.56950577306785
8.40409343344078
-2.87381566527749
1.79496015621446
3.13917153973908

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313657&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	-0.517512036936855	0.315122159268346
standard deviation	4.58824789604184	0.222825015720795

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & -0.517512036936855 & 0.315122159268346 \tabularnewline
standard deviation & 4.58824789604184 & 0.222825015720795 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=313657&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]-0.517512036936855[/C][C]0.315122159268346[/C][/ROW]
[ROW][C]standard deviation[/C][C]4.58824789604184[/C][C]0.222825015720795[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=313657&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313657&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.517512036936855	0.315122159268346
standard deviation	4.58824789604184	0.222825015720795

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