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:04:23 +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/t1475842196knhyoz05c69krtg.htm/, Retrieved Mon, 06 May 2024 08:01:26 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296594, Retrieved Mon, 06 May 2024 08:01:26 +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

111

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:04:23] [563c2945bc7c763925d38f2fb19cdb55] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-0.4300329325
-0.9083603406
-0.5743386919
1.067815867
-0.8596786585
1.405812353
-0.271570189
-1.112094563
0.7736154596
-1.26832312
-1.790749397
-0.1636900887
1.706227095
0.8626252767
-0.1289662278
-0.1500171619
-1.5427369
1.073173161
-2.206330954
-0.1575756516
-1.368095844
-0.05035107642
0.6170580145
-1.535943348
1.5841246
1.580256687
0.8835214453
-1.778024525
0.9387871103
1.104514828
0.2395812608
-0.04092457036
0.9731123918
-0.3779301735
-0.5028817972
-1.30744841
-0.1424760921
1.460884161
1.553903379
-1.18822494
0.7558676337
0.8048002833
0.1735063378
-0.3644559511
0.7850068059
-1.319521193
-2.375423531
0.3287101296
-0.1662082735
-0.6962878466
1.179500892
0.1781785736
0.2414040855
-0.2148870732
0.4724362337
0.2282850912
-1.664922664
-0.8048225529
0.7167160866
0.2755463664
-0.1728092003
-1.011275858
-0.2183668018
-0.7772139887
1.071739821
0.7887071774
0.1285965909
0.7926356579
1.180180311
-0.470595281
0.6066638884
-0.3995889928
-0.003351582886
1.958982613
0.1074485914
-0.4136373424
-0.06744451337
-2.498567228
0.07940228957
0.8073021743
-0.3394424219
-0.5221133794
-1.0985284
0.5876029821
-0.3320998972
0.6873036992
0.1161308145
0.02957645521
-0.3308620928
-0.6534651863
-0.4782110788
-0.1167771256
-0.1217703038
0.3897610602
-0.8754281625
1.77535712
-0.859992103
0.1273068348
-0.05052044533
0.798110289
-0.07897670395
0.2638284133
-0.2890813378
1.456804843
-0.8402352257
1.275877564
2.342609108
-0.02279366513
-0.02374578305
-0.8511599887
-0.6131330337
0.9721490362
0.2410159413
-0.5267513462
0.2432611152
0.467536733
-0.9965783589
-0.09952768501
0.2766460231
-0.7122808971
0.7794101628
1.957779233
-1.215431569
0.8002424699
-2.301418112
0.2227752533
0.8240498178
-0.9800243485
-1.489331171
-1.142782351
-0.1022559448
0.07261134414
-1.548620717
-0.4997966504
-0.5005312839
0.01754175162
-0.03238267868
-2.479267487
0.5191130626
0.03010966305
1.302077781
-0.3703529733
-1.49308003
-0.05676566042
-1.062784053
2.850943967
-0.2028567498
1.148412687
1.898592136
-0.1475360434

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296594&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.0266244659147733	0.0815334041358428
standard deviation	0.998576185624712	0.0576528229576777

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & -0.0266244659147733 & 0.0815334041358428 \tabularnewline
standard deviation & 0.998576185624712 & 0.0576528229576777 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296594&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]-0.0266244659147733[/C][C]0.0815334041358428[/C][/ROW]
[ROW][C]standard deviation[/C][C]0.998576185624712[/C][C]0.0576528229576777[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296594&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296594&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.0266244659147733	0.0815334041358428
standard deviation	0.998576185624712	0.0576528229576777

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