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, 17 Jul 2014 10:30:59 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Jul/17/t1405589543513dpg95wv9kqml.htm/, Retrieved Tue, 14 May 2024 17:00:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235330, Retrieved Tue, 14 May 2024 17:00:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsNiels Diependaele
Estimated Impact167
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Omzetcijfers Auto...] [2014-07-17 09:30:59] [0b4002381e6bc6fac3755b1107da82aa] [Current]
Feedback Forum

Post a new message
Dataseries X:
192528
190773
188996
185320
221698
219771
192528
174414
176163
176163
178112
181616
192528
188996
194449
203412
254400
254400
243516
232604
241567
252473
254400
259853
276217
265306
265306
281670
327033
330709
321580
299762
316121
316121
317876
327033
334241
337917
337917
348823
390681
401565
403314
376071
390681
385228
374317
397889
403314
394185
396112
408773
456085
479624
479624
468740
485082
468740
459588
494239
499664
486832
519533
532366
570521
595842
592339
590389
604999
603222
581432
614128
625040
614128
659491
681309
732102
752143
746712
735800
744935
755841
719441
748461
766753
759373
806657
822993
892101
904761
888424
897554
903007
908460
873809
906511
924624
906511
959275
975618
1046468
1057380
1060884
1079170
1079170
1086378
1053676
1070041
1080925
1060884
1119079
1129986
1202597
1215430
1233543
1249908
1251657
1253584
1220883
1253584




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

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







Univariate Dataseries
Name of dataseriesOmzet autogids (uitgedrukt in 100.00 EUR)
Sourceniet gekend
DescriptionDeze reeks omschrijft de omzet van autogids vanaf januari 2004 tot december 2013
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Omzet autogids (uitgedrukt in 100.00 EUR) \tabularnewline
Source & niet gekend \tabularnewline
Description & Deze reeks omschrijft de omzet van autogids vanaf januari 2004 tot december 2013 \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235330&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Omzet autogids (uitgedrukt in 100.00 EUR)[/C][/ROW]
[ROW][C]Source[/C][C]niet gekend[/C][/ROW]
[ROW][C]Description[/C][C]Deze reeks omschrijft de omzet van autogids vanaf januari 2004 tot december 2013[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235330&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235330&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 dataseriesOmzet autogids (uitgedrukt in 100.00 EUR)
Sourceniet gekend
DescriptionDeze reeks omschrijft de omzet van autogids vanaf januari 2004 tot december 2013
Number of observations120



Parameters (Session):
par1 = Omzet autogids (uitgedrukt in 100.00 EUR) ; par2 = niet gekend ; par3 = Deze reeks omschrijft de omzet van autogids vanaf januari 2004 tot december 2013 ; par4 = 12 ;
Parameters (R input):
par1 = Omzet autogids (uitgedrukt in 100.00 EUR) ; par2 = niet gekend ; par3 = Deze reeks omschrijft de omzet van autogids vanaf januari 2004 tot december 2013 ; 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')