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 computationSun, 25 Oct 2009 02:40:37 -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/t125646007883o8j5u1hvrf8cz.htm/, Retrieved Mon, 29 Apr 2024 11:08:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=50267, Retrieved Mon, 29 Apr 2024 11:08:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact215
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]
- R  D  [Histogram and QQplot] [Histogram week 3 ...] [2009-10-22 17:05:03] [cb1b5098fbe5e6779d164349741d91ea]
-   P       [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 08:40:37] [fd4f510ca22152ae67cc1e51e700ce02] [Current]
-   PD        [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 09:55:57] [cb1b5098fbe5e6779d164349741d91ea]
-   PD        [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 09:59:01] [cb1b5098fbe5e6779d164349741d91ea]
-    D          [Histogram and QQplot] [Histogram week 3 ...] [2009-10-25 14:49:43] [cb1b5098fbe5e6779d164349741d91ea]
-    D            [Histogram and QQplot] [Histogram week 3 ...] [2009-10-26 11:50:16] [cb1b5098fbe5e6779d164349741d91ea]
-    D              [Histogram and QQplot] [Histogram week 3 ...] [2009-10-26 11:55:41] [cb1b5098fbe5e6779d164349741d91ea]
Feedback Forum

Post a new message
Dataseries X:
89
90
82
82
71
80
62
77
80
87
96
80
85
89
89
73
88
86
83
91
98
80
84
90
92
86
117
88
86
78
104
89
99
84
89
95
58
77
77
98
58
81
92
94
87
75
80
84
87
114
97
102
80
112
104
75
82
92
102
73
78
74
92
97
92
91
102
89
98
117
92
70
63
91
106
81
98
88
95
105
90
58
86
112
71
98
87
98
117
98
98
90
84
86
68
86
77
83
90
107
102
90
113
86
105
110
82
89
99
113
91
92
86
91
82
86
86
102
84
80
96
117
88
99
89
86
98
58
98
58
81
90
112
84
84
75
78
94
75
82
87
59
68
80
94
87
70
113
99
90
102
80
98
98
95
104
86
84
85
90
86
97
81
91
96
85
74
78
71
72
87
72
90
87
89
110
95
72
70
79
92
93
97
75
88
105
82
89
114
81
73
82
110
93
114
91
97
97
68
72
81
102
62
102
84
75
102
62
100
82
78
106
88
85
97
114
105
100
72
106
78
80
88
62
93
87
109
91
110
98
99
95
97
88
72
102
95
93
90
80
75
109
75
72
77
93
72
91
95
111
105
90
105
90
92
95
75
92
100
82
102
104
98
95
114
93
110
104
91
79
97
102
77
105
95
104
75
82
91
105
71
89
79
113
82
102
82
92
82
86
108
74
87
97
102
75
82
72
88
97
85
62
95
95
72
92
91
97
78
95
91
95
88
92
97
104
113
113
82
90
91
95
102
92
109
88
87
78
72
85
73
77
90
78
96
84
87
105
89
78
96
79
90
96
95
79
86
99
111
105
123
102
82
86
117
94
110
86
109
118
64
78
86
98
64
84
87
88
106
78
79
95
98
101
104
91
78
123
109
77
77
102
88
81
83
72
95
109
91
87
112
95
103
108
116
71
70
105
112
86
109
112
97
122
97
64
84
110
70
100
102
108
123
78
109
106
95
108
74
86
82
88
96
114
111
88
123
89
114
121
100
83
92
108
87
84
95
90
82
84
96
109
84
83
93
120
83
103
103
102
90
69
114
64
87
116
121
90
92
81
84
106
75
79
80
74
66
81
98
99
68
100
97
99
104
82
92
99
109
106
89
87
98
95
92
90
83
102
75
92
94
88
77
63
73
85
80
77
67
98
89
63
97
77
96
84
94
70
100
88
97
78
108
81
96
84
104
87
98
89
93
89
63
84
82
105
70
94
101
83
88
69
94
82
82
109
86
99
82
114
99
91
81
102
101
72
91
83
102
103
93
88
110
100
88
119
98
90
69
98
98
81
93
91
86
95
87
63
89
108
99
90
91
82
119
97
108
101
96
97
69
89
84
79
103
92
104
102
106
93
108
119
102
83
92
119
100
97
103
95
73
86
88
102
87
100
88
100
79
90
83
95
89
64
108
80
83
96
108
86
88
97
110
102
92
91
92
72
88
99
95
83
68
101
91
89
98
89
98
97
98
113
83
92
113
103
96
94
95
92
85
83
73
81
63
77
82
82
95
85
88
98
87
71
89
86
88
93
95
78
84
97
95
88
121
97
82
82
108
90
113
86
105
105
60
75
79
104
60
87
93
85
97
67
85
86
88
114
97
93
80
118
109
81
79
104
97
75
82
71
92
104
99
89
114
95
106
117
109
74
63
103
107
86
99
87
93
114
82
60
83
111
75
94
91
100
121
90
105
97
92
92
67
90
85
85
97
118
109
94
121
85
112
118
93
85
97
121
83
89
92
89
82
85
92
112
79
84
92
118
82
100
87
97
87
70
110
60
81
94
114
85
85
79
82
102
73
78
84
70
66
79
95
95
69
109
100
91
99
84
101
99
104
109
87
88
87
95
92
100




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=50267&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
mean90.9604938271605formula
standard deviation13.1910341409937formula

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=50267&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
mean90.9604938271605formula
standard deviation13.1910341409937formula



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