FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_fitdistrnorm.wasp
Title produced by softwareML Fitting and QQ Plot- Normal Distribution
Date of computationTue, 12 Dec 2017 17:51:18 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/12/t1513097487kt43t0m3uze8b09.htm/, Retrieved Wed, 15 May 2024 11:06:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=309154, Retrieved Wed, 15 May 2024 11:06:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact32

Tree of Dependent Computations

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] [test] [2017-12-12 16:51:18] [ec772448347bb766a411d58621b503be] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
42
53
54
52
47
56
53
57
48
49
47
53
53
53
48
55
51
55
62
46
51
43
48
47
47
47
53
57
52
48
53
45
38
51
43
52
38
47
40
46
50
54
45
58
51
46
63
53
58
48
58
44
52
47
51
56
50
50
42
59
45
46
46
58
45
55
43
53
62
47
47
46
59
57
49
50
44
53
37
54
49
49
50
58
54
52
51
49
43
55
59
57
55
46
45
55
55
50
47
55
48
46
44
43
55
58
51
56
39
45
37
48
43
43
54
51
57
38
41
48
48
47
37
36
40
48
52
47
43
42
38
50
48
37
50
50
52
43
39
49
33
54
52
45
42
31
35
59
52
50
48
48
43
57
52
55
54
50
58
43
45
55
42
37
46
47
52
47
42
49
46
54
51
51
44
51
53
53
50
54
49
42
38
51
52
49
54
50
46
53
49
51
50
37
41
48
45
45
52
50
53
43
42
46
47
52
48
56
52
44
44
36
57
46
46
55
57
54
36
49
47
41
46
47
49
48
49
55
44
57
39
44
50
49
55
55
55
57
40
61
45
38
54
28
55
28
27
28
54
54
39
49
58
26
42
54
39
38
29
39
33
39
51
47
56
54
45
53
52
47
60
43
58
53
57
38
48
51
46
49
43
45
45
59
50
49
39
51
56
46
53
55
46
50
45
47
44
48
60
51
41
50
40
39
50
48
55
48
49
48
43
44
54
39
42
45
48
39
50
57
50
45
44
47
32
34
51
51
50
46
43
46
50
42
46
51
50
54
44
32
32
32
46
28
41
49
48
48
53
60
55
54
40
39
46
60
53
49
42
51
45
44
49
47
46
38
43
40
54
64
50
41
57
42
52
53
47
54
44
51
37
41
55
56
53
45
41
47
45
43
52
48
44
61
56
41
40
45
42
35
48
32
46
50
39
55
35
52
39
55
41
37
46
47
53
49
50
45
47
51
30
53
55
38
37
46
44
39
43
57
42
44
42
54
62
42
40
49
49
51
44
42
49
56
49
46

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R ServerBig 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=309154&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=309154&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309154&T=0

As an alternative you can also use a QR Code:  
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 Outputview raw output of R engine
Computing time3 seconds
R ServerBig Analytics Cloud Computing Center






ParameterEstimated ValueStandard Deviation
mean47.70403587443950.323188469692775
standard deviation6.825324239645430.228528758521064

\begin{tabular}{lllllllll}
\hline
Parameter & Estimated Value & Standard Deviation \tabularnewline
mean & 47.7040358744395 & 0.323188469692775 \tabularnewline
standard deviation & 6.82532423964543 & 0.228528758521064 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309154&T=1

[TABLE]
[ROW][C]Parameter[/C][C]Estimated Value[/C][C]Standard Deviation[/C][/ROW]
[ROW][C]mean[/C][C]47.7040358744395[/C][C]0.323188469692775[/C][/ROW]
[ROW][C]standard deviation[/C][C]6.82532423964543[/C][C]0.228528758521064[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=309154&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309154&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

ParameterEstimated ValueStandard Deviation
mean47.70403587443950.323188469692775
standard deviation6.825324239645430.228528758521064


Figures (Output of Computation)

Input Parameters & R Code

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')