Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationThu, 18 Feb 2016 16:57:03 +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/2016/Feb/18/t1455814657381j24usn61m39x.htm/, Retrieved Mon, 06 May 2024 14:56:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=292149, Retrieved Mon, 06 May 2024 14:56:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Wekelijkse verkoo...] [2016-02-18 16:57:03] [b1d105767b629000b6b6bd83f6a3d689] [Current]
Feedback Forum

Post a new message
Dataseries X:
week 1 2013	283 411
week 2 2013	234 585
week 3 2013	207 695
week 4 2013	204 000
week 5 2013	220 791
week 6 2013	222 335
week 7 2013	303 510
week 8 2013	201 602
week 9 2013	218 279
week 10 2013	207 253
week 11 2013	217 639
week 12 2013	231 043
week 13 2013	302 988
week 14 2013	221 415
week 15 2013	213 989
week 16 2013	190 507
week 17 2013	199 397
week 18 2013	201 077
week 19 2013	261 048
week 20 2013	241 508
week 21 2013	194 637
week 22 2013	240 044
week 23 2013	253 534
week 24 2013	269 220
week 25 2013	270 820
week 26 2013	354 121
week 27 2013	315 233
week 28 2013	297 098
week 29 2013	258 289
week 30 2013	276 246
week 31 2013	246 652
week 32 2013	242 945
week 33 2013	210 838
week 34 2013	246 343
week 35 2013	234 636
week 36 2013	229 011
week 37 2013	238 756
week 38 2013	283 696
week 39 2013	226 656
week 40 2013	229 790
week 41 2013	219831
week 42 2013	232 331
week 43 2013	315 447
week 44 2013	251 031
week 45 2013	297 019
week 46 2013	208 424
week 47 2013	311 626
week 48 2013	352 320
week 49 2013	375 214
week 50 2013	419 501
week 51 2013	664 867
week 52 2013	483 142
week 1 2014	312 717
week 2 2014	228 228
week 3 2014	230 978
week 4 2014	218 033
week 5 2014	225 566
week 6 2014	207 708
week 7 2014	241 861
week 8 2014	208 381
week 9 2014	209 071
week 10 2014	214 514
week 11 2014	195 868
week 12 2014	190 208
week 13 2014	187 651
week 14 2014	215 934
week 15 2014	213 012
week 16 2014	236 845
week 17 2014	154 595
week 18 2014	193 485
week 19 2014	231 875
week 20 2014	192 259
week 21 2014	191 609
week 22 2014	212 911
week 23 2014	238 596
week 24 2014	203 033
week 25 2014	258 272
week 26 2014	314 681
week 27 2014	289 789
week 28 2014	297 541
week 29 2014	239 578
week 30 2014	207 798
week 31 2014	254 091
week 32 2014	242 544
week 33 2014	218 067
week 34 2014	217 463
week 35 2014	229 438
week 36 2014	216 485
week 37 2014	238 410
week 38 2014	223 108
week 39 2014	221 267
week 40 2014	224 802
week 41 2014	233 630
week 42 2014	235 134
week 43 2014	309 660
week 44 2014	253 229
week 45 2014	293 530
week 46 2014	273 323
week 47 2014	297 578
week 48 2014	341 589
week 49 2014	389 911
week 50 2014	398 685
week 51 2014	629 637
week 52 2014	522 502
week 1 2015	358 941
week 2 2015	252 783
week 3 2015	236 585
week 4 2015	224 995
week 5 2015	225 721
week 6 2015	223 338
week 7 2015	228 952
week 8 2015	212 759
week 9 2015	200270
week 10 2015	211 925
week 11 2015	191 206
week 12 2015	200 511
week 13 2015	205 944
week 14 2015	289 288
week 15 2015	186 209
week 16 2015	197 515
week 17 2015	182 038
week 18 2015	181 606
week 19 2015	223 337
week 20 2015	201 213
week 21 2015	220 700
week 22 2015	194 043
week 23 2015	224 593
week 24 2015	249 907
week 25 2015	238 613
week 26 2015	266 200
week 27 2015	274 197
week 28 2015	288 601
week 29 2015	242 662
week 30 2015	232 105
week 31 2015	267 842
week 32 2015	219 037
week 33 2015	198 404
week 34 2015	203 910
week 35 2015	209 685
week 36 2015	214 274
week 37 2015	215 376
week 38 2015	217 711
week 39 2015	224 819
week 40 2015	217 142
week 41 2015	221 445
week 42 2015	213 483
week 43 2015	282 063
week 44 2015	236 194
week 45 2015	297 296
week 46 2015	255 885
week 47 2015	264 502
week 48 2015	311 580
week 49 2015	416 595
week 50 2015	356 762
week 51 2015	537 286
week 52 2015	532 855




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 0 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=292149&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=292149&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=292149&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 time0 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net



Parameters (Session):
par1 = Wekelijkse boekverkoop Vlaanderen ; par4 = 12 ;
Parameters (R input):
par1 = Wekelijkse boekverkoop Vlaanderen ; par2 = ; par3 = ; par4 = 12 ;
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')