Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleIan.Hollidayrwasp_varia1.wasp
Title produced by softwareHistogram and QQplot
Date of computationMon, 26 Oct 2009 08:08:45 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/26/t12565662527pigbtf5ehd3mh8.htm/, Retrieved Fri, 03 May 2024 00:00:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=50574, Retrieved Fri, 03 May 2024 00:00:12 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact107
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram and QQplot] [PY2224 Aston Work...] [2009-10-06 09:57:09] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD  [Histogram and QQplot] [Yr 10 Histogram] [2009-10-26 12:38:32] [c92a6f82e2c829eb84d446c49982f3a5]
-   PD      [Histogram and QQplot] [10% trim] [2009-10-26 14:08:45] [1831616c887d35b55ca42b323d884f43] [Current]
Feedback Forum

Post a new message
Dataseries X:
82
82
83
83
84
85
85
85
85
86
86
86
87
88
88
88
88
88
88
88
89
89
89
89
90
90
91
91
91
91
91
91
91
91
91
92
92
92
93
93
94
94
94
94
95
95
95
95
96
96
97
97
97
97
97
98
98
98
98
98
98
98
98
100
100
100
102
102
102
102
102
103
103
104
71
84
71
77
81
92
82
86
81
86
91
91
87
95
92
91
89
82
80
105
95
82
72
86
96
108
78
86
90
102
92
86
92
80
82
82
103
94
105
95
78
112
91
88
104
86
90
103
111
89
93
89
82
98
94
92
97
105
112
86
96
105
95
88
95
92
81
80
100
99
97
91
103
98
86
86
93
81
79
85
87
91
94
83
86
86
85
95
92
95
83
83
88
86
91
88
94
105
95
83
69
84
88
85
105
92
87
88
86
88
88
92
90
93
89
104
97
104
84
88
101
102
99
88
90
102
101
89
95
87
87
93
101
87
79
92
94
93
90
103
88
102
105
100
97
93
94
108
72
83
90
67
80
91
78
73
92
90
90
86
98
81
89
84
84
84
89
87
91
90
94
105
84
79
80
84
86
82
100
100
98
107
90
96
98
84
83
89
87
69
90
103
85
89
105
91
83
94
88
94
107
94
105
90
89
96
94
111
97
92
95
89
95
106
104
88
101
96
97
87
96
84
73
82
81
83
75
86
84
86
86
82
88
92
83
84
92
82
86
90
82
94
88
94
83
83
82
93
73
77
100
84
89
89
94
92
83
79
96
104
90
90
82
100
98
93
91
95
95
89
98
91
90
93
85
98
92
97
98
101
93
96
89
92
89
90
93
84
88
84
107
92
96
92
107
97




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=50574&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=50574&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=50574&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Descriptive Statistics
mean91.0756756756757formula
standard deviation7.93398936296248formula

\begin{tabular}{lllllllll}
\hline
Descriptive Statistics \tabularnewline
mean & 91.0756756756757 & formula \tabularnewline
standard deviation & 7.93398936296248 & formula \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=50574&T=1

[TABLE]
[ROW][C]Descriptive Statistics[/C][/ROW]
[ROW][C]mean[/C][C]91.0756756756757[/C][C]formula[/C][/ROW]
[ROW][C]standard deviation[/C][C]7.93398936296248[/C][C]formula[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=50574&T=1

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

As an alternative you can also use a QR Code:  

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

Descriptive Statistics
mean91.0756756756757formula
standard deviation7.93398936296248formula



Parameters (Session):
par1 = 3 ; par2 = FALSE ; par3 = 20 ;
Parameters (R input):
par1 = 40 ;
R code (references can be found in the software module):
bitmap(file='test1.png')
par1 <- as.numeric(par1)
myhist<-hist(x, breaks=par1, col=2)
dev.off()
bitmap(file='test2.png')
qqnorm(x)
qqline(x, col=2)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Descriptive Statistics',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.element(a,hyperlink('arithmetic_mean.htm','formula','click to see the formula'))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'standard deviation',header=TRUE)
a<-table.element(a,sd(x))
a<-table.element(a,hyperlink('unbiased1.htm','formula','click to see the formula'))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')