Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_univariatedataseries.wasp

Title produced by software

Univariate Data Series

Date of computation

Thu, 22 Sep 2016 20:22:48 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Sep/22/t1474572210jhktnr1rzzzjgjp.htm/, Retrieved Wed, 08 May 2024 13:02:17 +0200

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Wed, 08 May 2024 13:02:17 +0200

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Thee

Estimated Impact

Dataseries X:

Download CSV

Histogram

Boxplots

2010 januari	92,64
2010 februari	91,48
2010 maart	92,65
2010 april	93,91
2010 mei	90,49
2010 juni	94,56
2010 juli	95,11
2010 augustus	93,07
2010 september	93,26
2010 oktober	92,92
2010 november	90,9
2010 december	91,77
2011 januari	86,16
2011 februari	92,79
2011 maart	97,45
2011 april	97,74
2011 mei	99,92
2011 juni	99,46
2011 juli	98,52
2011 augustus	97,92
2011 september	97,85
2011 oktober	104,94
2011 november	104,55
2011 december	105,35
2012 januari	95,75
2012 februari	105,99
2012 maart	106,11
2012 april	107,33
2012 mei	106,11
2012 juni	108,17
2012 juli	104,62
2012 augustus	106,71
2012 september	97,86
2012 oktober	104,41
2012 november	96,09
2012 december	102,41
2013 januari	96,3
2013 februari	103,04
2013 maart	105,11
2013 april	99,4
2013 mei	104,45
2013 juni	104,31
2013 juli	104,06
2013 augustus	101,16
2013 september	100,82
2013 oktober	102,6
2013 november	92,78
2013 december	99,68
2013	101,14
2014 januari	95,14
2014 februari	101,28
2014 maart	100,03
2014 april	101,17
2014 mei	98,93
2014 juni	97,77
2014 juli	100,24
2014 augustus	98,05
2014 september	95,82
2014 oktober	99,19
2014 november	97,42
2014 december	98,02
2014	98,59
2015 januari	97,34
2015 februari	101,23
2015 maart	100,16
2015 april	100,72
2015 mei	99,8
2015 juni	100,39
2015 juli	101,82
2015 augustus	102,95
2015 september	98,8
2015 oktober	100,24
2015 november	98,4
2015 december	98,15

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	'Gwilym Jenkins' @ jenkins.wessa.net

Parameters (Session):

par1 = Opgave 1: Thee ; par2 = http://statline.cbs.nl/ ; par3 = De Consumentenprijsindex van Thee, van januari 2010 tot en met december 2015. ; par4 = 12 ;

Parameters (R input):

par1 = Opgave 1: Thee ; par2 = http://statline.cbs.nl/ ; par3 = De Consumentenprijsindex van Thee, van januari 2010 tot en met december 2015. ; par4 = 12 ;

R code (references can be found in the software module):

par4 <- '12'
par3 <- 'd'
par2 <- 'd'
par1 <- 'Opgave 1: Thee'
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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code