Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software ModuleIan.Hollidayrwasp_Reddy-Moores DAta.wasp
Title produced by softwareHistogram and QQPlot
Date of computationSun, 25 Oct 2009 10:03:23 -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/25/t1256487095fmjygjjmctxhbyq.htm/, Retrieved Mon, 29 Apr 2024 09:57:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=50330, Retrieved Mon, 29 Apr 2024 09:57:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact170
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]
-   P   [Histogram and QQplot] [olivia friday] [2009-10-09 12:41:21] [3fdd735c61ad38cbc9b3393dc997cdb7]
- RMPD    [Histogram and QQplot] [Reddy Moores Hist...] [2009-10-09 13:23:16] [98fd0e87c3eb04e0cc2efde01dbafab6]
-   PD      [Histogram and QQPlot] [] [2009-10-25 15:53:57] [a120050d9c71216a504f7d26958aa6f2]
-   PD          [Histogram and QQPlot] [] [2009-10-25 16:03:23] [54f2e1afebed922cecd41071a661e251] [Current]
Feedback Forum

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




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=50330&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]2 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=50330&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=50330&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Descriptive Statistics
mean92formula
standard deviation10.876088827152formula

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=50330&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
mean92formula
standard deviation10.876088827152formula



Parameters (Session):
par1 = 15 ;
Parameters (R input):
par1 = 15 ;
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')