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, 06 Oct 2016 11:18:56 +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/06/t14757461594mpdjvzeeumnw5h.htm/, Retrieved Sat, 04 May 2024 13:53:55 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296564, Retrieved Sat, 04 May 2024 13:53:55 +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] [Task 4 -H3 -] [2016-10-06 09:18:56] [67fe698233d7575d27222b521501ef35] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

3.718683223
4.417214596
10.91291089
20.24929294
15.0867394
12.2089144
8.445080899
8.089258806
3.26922534
7.151683961
5.935101549
10.88501949
9.703115338
13.88016355
16.47552453
9.911990207
11.11230441
9.375976816
16.63276921
12.81225995
14.89009834
11.99811352
11.39136514
10.43955458
10.06233644
9.830059341
15.20936755
9.689860514
8.993773707
7.339747726
5.287031969
7.213688236
8.858299478
7.489417376
12.01708645
10.34415246
15.3099282
15.39340254
11.80944274
11.77956816
21.7834463
28.0992331
14.08332747
8.882641518
16.47046219
11.66965266
10.42847822
7.24862418
14.86028402
16.34797264
11.2541898
10.33117092
13.31091664
5.829949214
12.58376981
16.68547026
12.0873698
12.01992835
8.903383759
10.44918034
11.91243256
13.47570473
5.710293707
9.517647507
8.646892774
3.240861834
14.71548245
12.10117018
10.57016697
15.38693981
5.369514524
24.16707977
10.01112057
10.83260423
7.187636696
10.59903935
9.234778566
11.5518873
18.45147206
7.254311588
11.35601041
10.4745231
18.23027354
11.25735827
14.20105199
14.05200618
6.343805065
10.39064289
14.89995064
22.44958494
18.44341954
12.35549559
16.1450127
14.27108551
14.42208927
4.640390987
13.56652071
16.48996519
11.76570573
8.082481043
18.97820909
12.61188748
22.03492263
9.723047811
14.5918571
10.09706962
11.18173632
7.041403641
10.72860986
9.254382353
12.56895655
12.63094802
12.23463737
27.75734869
8.19449982
15.22079671
5.856016164
12.44401182
9.875872701
7.240184158
8.978237743
24.30255472
14.82577073
8.437779975
11.38329021
9.63954696
5.835446189
5.785947486
6.621650128
10.26596639
8.428278226
8.686516235
12.28118211
20.48681032
10.14044997
13.11057708
16.89068093
8.934618616
13.10051451
16.25383686
9.128002962
13.10204516
7.008268714
10.994078
15.88309619
12.93447489
8.119722944
9.689701055
6.958100664
20.47448876

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

8 seconds[/C][/ROW] [ROW]

R Server[/C]

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

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

Parameter	Estimated Value	Standard Deviation
mean	11.81114278846	0.371749588028241
standard deviation	4.55298401379524	0.262866654598075

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 11.81114278846 & 0.371749588028241 \tabularnewline
standard deviation & 4.55298401379524 & 0.262866654598075 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296564&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]11.81114278846[/C][C]0.371749588028241[/C][/ROW]
[ROW][C]standard deviation[/C][C]4.55298401379524[/C][C]0.262866654598075[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296564&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296564&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	11.81114278846	0.371749588028241
standard deviation	4.55298401379524	0.262866654598075

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