Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationTue, 15 Feb 2011 09:48:21 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Feb/15/t1297763232ji9w64wsqsi793d.htm/, Retrieved Mon, 27 May 2024 16:03:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=118260, Retrieved Mon, 27 May 2024 16:03:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W1
Estimated Impact177
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [US Retail On-High...] [2011-02-15 09:48:21] [5e78ed906b09bab42b8ec3dd93b6358a] [Current]
Feedback Forum

Post a new message
Dataseries X:
338
333
327
326
328
328
340
356
366
382
397
399
396
396
406
414
418
415
433
450
472
471
469
469
465
465
473
476
472
460
450
435
421
415
412
406
402
396
396
388
366
348
329
309
294
281
266
262
252
242
237
233
229
231
230
227
225
222
219
213
209
205
202
209
222
223
223
222
220
219
222
223
227
235
250
257
262
261
259
254
250
253
255
263
265
267
267
265
263
262
260
258
260
271
280
281
280
279
279
278
277
275
273
273
280
288
287
283
278
277
276
283
286
290
292
295




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

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

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







Univariate Dataseries
Name of dataseriesDiesel price US
Sourceeconomagic
Descriptionprijs liter diesel per gallon
Number of observations116

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Diesel price US \tabularnewline
Source & economagic \tabularnewline
Description & prijs liter diesel per gallon \tabularnewline
Number of observations & 116 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=118260&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Diesel price US[/C][/ROW]
[ROW][C]Source[/C][C]economagic[/C][/ROW]
[ROW][C]Description[/C][C]prijs liter diesel per gallon[/C][/ROW]
[ROW][C]Number of observations[/C][C]116[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=118260&T=1

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

As an alternative you can also use a QR Code:  

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

Univariate Dataseries
Name of dataseriesDiesel price US
Sourceeconomagic
Descriptionprijs liter diesel per gallon
Number of observations116



Parameters (Session):
par1 = Diesel price US ; par2 = economagic ; par3 = prijs liter diesel per gallon ; par4 = No season ;
Parameters (R input):
par1 = Diesel price US ; par2 = economagic ; par3 = prijs liter diesel per gallon ; par4 = No season ;
R code (references can be found in the software module):
if (par4 != 'No season') {
par4 <- as.numeric(par4)
if (par4 < 4) par4 <- 12
}
summary(x)
n <- length(x)
bitmap(file='test1.png')
if (par4=='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,10))
}
if (par4!='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,par4))
grid(nx=0,ny=NULL,col='black')
abline(v=seq(1,n,par4),col='black',lty='dotted')
}
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Univariate Dataseries',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Name of dataseries',header=TRUE)
a<-table.element(a,par1)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Source',header=TRUE)
a<-table.element(a,par2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Description',header=TRUE)
a<-table.element(a,par3)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')