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, 13 Oct 2008 18:34:39 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Oct/14/t1223944552yy9i652lw9c91sp.htm/, Retrieved Wed, 15 May 2024 18:48:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=16169, Retrieved Wed, 15 May 2024 18:48:16 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact148
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Univariate Data Series] [Referentiewisselk...] [2008-10-14 00:34:39] [382e90e66f02be5ed86892bdc1574692] [Current]
Feedback Forum
2008-10-16 11:06:13 [Stefan Eyckmans] [reply
Ik zou mischien toch wat meer observaties nemen, op die manier kan
je later betere voorspellingen maken.

Er is ook een groot verschil in het begin en einde van de grafiek. Dit
kan interssant zijn of ambetant.
2008-10-19 21:43:22 [Pieter Schuermans] [reply
In de grafiek zit een zekere stijgende trend. Alleen op het einde gaat de grafiek terug naar beneden. De wisselkoers is dan ook geen stabiele koers. Het zal dus moeilijk worden om het verloop te voorspellen.
2008-10-20 14:20:21 [Ruben Jacobs] [reply
Dit is een interessante grafiek. Er zit een redelijke constante stijgende trend in. Probeer de daling op het einde van tijdreeks te verklaren. Deze crash gebeurt blijkbaar bij al je tijdreeksen. Misschien is hier wel een verband en is het interessant om dit te verklaren. Indien dit niet lukt kan je eventueel ook je periode een beetje vroeger beginnen zodat deze crash van je tijdreeks valt en zo je berekening niet te hard beïnvloedt. Let wel op dat je dan je andere tijdreeksen ook vroeger moet beginnen.
Probeer de volledige hyperlink van je bron nog toe te voegen in plaats van Belgostat.

Post a new message
Dataseries X:
1,1222
1,1692
1,1702
1,2286
1,2613
1,2646
1,2262
1,1985
1,2007
1,2138
1,2266
1,2176
1,2218
1,249
1,2991
1,3408
1,3119
1,3014
1,3201
1,2938
1,2694
1,2165
1,2037
1,2292
1,2256
1,2015
1,1786
1,1856
1,2103
1,1938
1,202
1,2271
1,277
1,265
1,2684
1,2811
1,2727
1,2611
1,2881
1,3213
1,2999
1,3074
1,3242
1,3516
1,3511
1,3419
1,3716
1,3622
1,3896
1,4227
1,4684
1,457
1,4718
1,4748
1,5527
1,575
1,5557
1,5553
1,577
1,4975
1,4369




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=16169&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=16169&T=0

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







Univariate Dataseries
Name of dataseriesReferentiewisselkoers USD/ EUR
SourceBelgostat
DescriptionReferentiewisselkoers USD/ EUR
Number of observations61

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Referentiewisselkoers USD/ EUR \tabularnewline
Source & Belgostat \tabularnewline
Description & Referentiewisselkoers USD/ EUR \tabularnewline
Number of observations & 61 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=16169&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Referentiewisselkoers USD/ EUR[/C][/ROW]
[ROW][C]Source[/C][C]Belgostat[/C][/ROW]
[ROW][C]Description[/C][C]Referentiewisselkoers USD/ EUR[/C][/ROW]
[ROW][C]Number of observations[/C][C]61[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=16169&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=16169&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 dataseriesReferentiewisselkoers USD/ EUR
SourceBelgostat
DescriptionReferentiewisselkoers USD/ EUR
Number of observations61



Parameters (Session):
par1 = Referentiewisselkoers USD/ EUR ; par2 = Belgostat ; par3 = Referentiewisselkoers USD/ EUR ;
Parameters (R input):
par1 = Referentiewisselkoers USD/ EUR ; par2 = Belgostat ; par3 = Referentiewisselkoers USD/ EUR ;
R code (references can be found in the software module):
bitmap(file='test1.png')
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab)
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')