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:47 +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/t14758421720cnjglj7fpljoo4.htm/, Retrieved Sun, 05 May 2024 21:24:40 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296592, Retrieved Sun, 05 May 2024 21:24:40 +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:47] [070714f07871aeb0c40d04255feda5cb] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.2584634943
0.201778884
-0.1114837743
1.574234402
0.1307858056
0.06782176775
0.1594572108
1.653268072
-0.7463624187
0.9113128982
-0.08412561623
-1.122332518
-0.09941332042
-0.413051254
0.4805331088
1.143712692
1.279442018
-0.8512875792
0.9989288187
0.3085059189
0.3678251987
0.05653833746
-1.357954173
0.01382398298
-1.016883307
1.117352598
0.04349105683
1.24434587
0.08677714073
1.160487822
-0.02899699261
-0.3797446223
0.3230436406
-0.5525267218
-1.767664846
0.4242185424
0.792000946
-1.183800179
1.815515138
0.3627360942
0.05702796634
-0.44053995
1.263478394
0.0618711823
-1.613381171
-0.9621366742
-0.7169231208
0.2973518916
-0.7694206608
2.027125796
0.5884630444
0.9590486117
-0.06940184013
-0.2002647966
-1.02115166
-0.2501731913
0.6651931253
0.9409915232
1.650637294
-0.3812256945
2.629032558
-1.100578718
0.7439361526
-1.07119593
-1.553368389
-0.7284318463
0.123436694
-1.641368458
-0.1795766052
-1.178842396
0.3936749863
-1.460872563
1.413205333
-0.7673627781
0.1486652327
-0.575955044
0.9649606647
-1.400908293
-0.5440914368
-1.604877365
-1.355945598
-0.3554673478
0.5747768047
-1.898438473
0.6328046939
0.6805639044
-1.090728845
1.033878244
0.9474294013
-0.7025785623
-1.804843821
1.832132011
-2.507633001
-0.2106114923
1.921468513
1.328527422
-0.6510269116
0.3145855101
0.9864005184
-1.675608041
-0.7014082899
-1.210864922
-0.4124405638
0.1015285864
-1.419998608
-0.4842976128
-0.6533994793
-0.3320567754
0.8812368046
1.546409751
0.6682366864
0.7379472145
-2.434215334
1.780126939
-0.6663783872
-1.553365003
-0.8668446349
-0.2058638531
0.3281086781
-0.2012633271
0.9138290184
-1.589827816
0.903385198
-0.1481546771
-1.001423113
0.9948373073
-0.1260195186
-1.365980236
0.40215755
0.4943910853
3.148150056
-0.2042380108
1.461388269
-1.796083948
-0.5068652931
-1.003630222
0.4675914269
-0.7291428615
1.53479353
-1.975335908
0.533415463
0.9329370934
-0.008386507354
-0.3459081512
-0.3059685217
-0.5095537733
-0.856907367
0.232203098
0.2427043775
-1.987092319

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296592&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.0489401731116933	0.0864253783710133
standard deviation	1.05849038917976	0.0611119711127567

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & -0.0489401731116933 & 0.0864253783710133 \tabularnewline
standard deviation & 1.05849038917976 & 0.0611119711127567 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296592&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]-0.0489401731116933[/C][C]0.0864253783710133[/C][/ROW]
[ROW][C]standard deviation[/C][C]1.05849038917976[/C][C]0.0611119711127567[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296592&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296592&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.0489401731116933	0.0864253783710133
standard deviation	1.05849038917976	0.0611119711127567

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