Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_Distributional Plots.wasp
Title produced by softwareHistogram, QQplot and Density
Date of computationFri, 01 Jun 2012 05:55:37 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Jun/01/t13385445444lghpqlgp1w6925.htm/, Retrieved Thu, 02 May 2024 12:45:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168472, Retrieved Thu, 02 May 2024 12:45:11 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact106
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram, QQplot and Density] [Workshop 1 ] [2010-09-29 15:04:17] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RM    [Histogram, QQplot and Density] [Workshop 1] [2011-10-03 09:04:15] [74be16979710d4c4e7c6647856088456]
- R  D    [Histogram, QQplot and Density] [] [2012-06-01 09:54:27] [9514634163ab2febe0972d8a87e8bbf9]
-    D        [Histogram, QQplot and Density] [] [2012-06-01 09:55:37] [169ec5fb8eb5ef8d9bbbf91dacc5bfc6] [Current]
Feedback Forum

Post a new message
Dataseries X:
257
210
212
245
214
241
242
253
246
234
249
219
210
229
217
231
286
227
275
232
302
231
239
240
227
215
229
220
194
280
236
248
249
213
233
240
219
240
261
255
213
258
218
260
257
213
229
233
268
220
243
292
236
254
239
228
234
241
251
244
283
219
226
223
206
251
232
241
217
216
211
205
222
250
253
223
226
227
218
226
244
241
218
219
216
238
217
269
251
272
217
283
215
205
218
238
207
205
236
211
201
219
229
218
273
250
228
246
242
225
264
277
241
244
252
238
243
218
198
237
199
224
274
211
195
259
213
230
276
271
243
213
218
231
237
210
220
213
237
269
223
207
197
204
223
242
221
210
214
210
229
219
214
230
231
283
205
240
231
232
246
232
257
241
253
219
243
216
223
220
255
204
281
259
224
209
222
246
260
269
259




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

\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' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168472&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168472&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168472&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' @ jenkins.wessa.net







Descriptive Statistics
mean234.337formula
standard deviation21.8559formula

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168472&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
mean234.337formula
standard deviation21.8559formula



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, xlab=xlab, main=main)
dev.off()
bitmap(file='test2.png')
qqnorm(x)
qqline(x, col=2)
dev.off()
bitmap(file='test3.png')
plot(density(x), xlab=xlab, main=main)
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,signif(mean(x), 6))
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,signif(sd(x), 6))
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')