Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 07 Jul 2014 12:51:11 +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/07/t1404733918gtnbvhk0kyaeplf.htm/, Retrieved Mon, 13 May 2024 21:19:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235260, Retrieved Mon, 13 May 2024 21:19:31 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact164
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2014-07-07 11:51:11] [bdb7c0ed7ba273e65f9ee772c5dda4f0] [Current]
Feedback Forum

Post a new message
Dataseries X:
1069108
1059362
1049495
1029082
1231089
1220388
1069108
968521
978233
978233
989056
1008514
1069108
1049495
1079775
1129547
1412683
1412683
1352244
1291650
1341422
1401983
1412683
1442964
1533833
1473244
1473244
1564114
1816014
1836427
1785734
1664578
1755420
1755420
1765165
1816014
1856040
1876453
1876453
1937014
2169452
2229890
2239603
2088322
2169452
2139171
2078582
2209478
2239603
2188909
2199610
2269916
2532640
2663352
2663352
2602913
2693660
2602913
2552092
2744509
2774634
2703378
2884967
2956228
3168103
3308711
3289258
3278430
3359559
3349692
3228692
3410253
3470847
3410253
3662154
3783309
4065362
4176650
4146492
4085897
4136624
4197185
3995056
4156204
4257779
4216798
4479366
4570080
4953837
5024138
4933418
4984117
5014398
5044678
4852261
5033856
5134437
5033856
5326854
5417607
5811037
5871631
5891089
5992631
5992631
6032657
5851063
5941938
6002377
5891089
6214246
6274812
6678021
6749283
6849864
6940739
6950451
6961152
6779563
6961152




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

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







Univariate Dataseries
Name of dataseriesOmzet libelle (EUR)
SourceNiet gekend
DescriptionOmzetcijfers van de verkoop van libelle magazine door de maanden heen.
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Omzet libelle (EUR) \tabularnewline
Source & Niet gekend \tabularnewline
Description & Omzetcijfers van de verkoop van libelle magazine door de maanden heen. \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235260&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Omzet libelle (EUR)[/C][/ROW]
[ROW][C]Source[/C][C]Niet gekend[/C][/ROW]
[ROW][C]Description[/C][C]Omzetcijfers van de verkoop van libelle magazine door de maanden heen.[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235260&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235260&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 libelle (EUR)
SourceNiet gekend
DescriptionOmzetcijfers van de verkoop van libelle magazine door de maanden heen.
Number of observations120



Parameters (Session):
par1 = Omzet libelle (EUR) ; par2 = Niet gekend ; par3 = Omzetcijfers van de verkoop van libelle magazine door de maanden heen. ; par4 = 12 ;
Parameters (R input):
par1 = Omzet libelle (EUR) ; par2 = Niet gekend ; par3 = Omzetcijfers van de verkoop van libelle magazine door de maanden heen. ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Omzetcijfers van de verkoop van libelle magazine door de maanden heen.'
par2 <- 'Niet gekend'
par1 <- 'Omzet libelle (EUR)'
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')