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, 09 Jul 2015 15:33:36 +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/2015/Jul/09/t1436452607adr9ac3v66j7dct.htm/, Retrieved Fri, 17 May 2024 05:34:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=279537, Retrieved Fri, 17 May 2024 05:34:22 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact180
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [consumptieprijzen...] [2015-02-09 16:46:22] [6b666be92a2717ec998be34b30849c21]
- R PD    [Univariate Data Series] [REEKS A: stap 1] [2015-07-09 14:33:36] [b81b5adcb18a6dd731e9cb79a54989dd] [Current]
Feedback Forum

Post a new message
Dataseries X:
4213144
4197453
4181541
4148612
4474366
4457128
4213144
4050930
4066621
4066621
4084080
4115462
4164303
4164303
4132921
4050930
4474366
4538898
4441437
4213144
4310826
4164303
4230382
4261985
4294914
4213144
4230382
4115462
4474366
4587739
4490278
4310826
4505969
4294914
4490278
4474366
4523207
4343755
4538898
4523207
4816032
4749953
4490278
4359446
4538898
4294914
4474366
4505969
4572048
4425746
4505969
4554810
4734262
4587739
4392596
4181541
4376905
3839875
4099771
4246073
4392596
4181541
4181541
4181541
4294914
4132921
3920319
3742414
3871478
3367598
3676335
3855787
3888716
3709264
3724955
3676335
3839875
3724955
3498430
3334669
3611582
3010241
3400748
3578653
3578653
3367598
3172455
3156764
3334669
3172455
2863939
2651337
2879630
2342821
2830789
3090464
3172455
2993003
2766257
2928471
2993003
2944162
2455973
2229448
2391441
1903473
2407353
2586805
2733107
2489123
2260830
2391441
2455973
2326909
1838941
1626339
1821482
1284673
1870323
2229448




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

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







Univariate Dataseries
Name of dataseriesconsumenten prijzen, voeding
Sourcehttp://www.nbb.be/belgostat/PresentationLinker?Order=true&TableId=596000016&Lang=N&prop=null
DescriptionIndexcijfer consumentenprijzen, classificatie per groep, voedingsmiddelen
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & consumenten prijzen, voeding \tabularnewline
Source & http://www.nbb.be/belgostat/PresentationLinker?Order=true&TableId=596000016&Lang=N&prop=null \tabularnewline
Description & Indexcijfer consumentenprijzen, classificatie per groep, voedingsmiddelen \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=279537&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]consumenten prijzen, voeding[/C][/ROW]
[ROW][C]Source[/C][C]http://www.nbb.be/belgostat/PresentationLinker?Order=true&TableId=596000016&Lang=N&prop=null[/C][/ROW]
[ROW][C]Description[/C][C]Indexcijfer consumentenprijzen, classificatie per groep, voedingsmiddelen[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=279537&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=279537&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 dataseriesconsumenten prijzen, voeding
Sourcehttp://www.nbb.be/belgostat/PresentationLinker?Order=true&TableId=596000016&Lang=N&prop=null
DescriptionIndexcijfer consumentenprijzen, classificatie per groep, voedingsmiddelen
Number of observations120



Parameters (Session):
par1 = reeks A - plot and describe database ; par2 = niet gekend ; par3 = omzet product Jonagold (EUR jaarbasis) ; par4 = 12 ;
Parameters (R input):
par1 = reeks A - plot and describe database ; par2 = niet gekend ; par3 = omzet product Jonagold (EUR jaarbasis) ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Indexcijfer consumentenprijzen, classificatie per groep, voedingsmiddelen'
par2 <- 'http://www.nbb.be/belgostat/PresentationLinker?Order=true&TableId=596000016&Lang=N&prop=null'
par1 <- 'consumenten prijzen, voeding'
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')