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 09:53:57 -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/t1256486072fs00zq7nyp9f1vp.htm/, Retrieved Mon, 29 Apr 2024 10:10:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=50329, Retrieved Mon, 29 Apr 2024 10:10:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact165
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] [54f2e1afebed922cecd41071a661e251] [Current]
-   PD          [Histogram and QQPlot] [] [2009-10-25 16:03:23] [a120050d9c71216a504f7d26958aa6f2]
Feedback Forum

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




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

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

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

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

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



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