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:20:12 -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/t1223943660omrr1af6cq305g4.htm/, Retrieved Wed, 22 May 2024 03:34:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=16168, Retrieved Wed, 22 May 2024 03:34:05 +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] [Brent in USD per vat] [2008-10-14 00:20:12] [382e90e66f02be5ed86892bdc1574692] [Current]
-   PD    [Univariate Data Series] [Industriële produ...] [2008-10-20 19:12:03] [d32f94eec6fe2d8c421bd223368a5ced]
-   P       [Univariate Data Series] [Industriële produ...] [2008-10-20 19:42:03] [d32f94eec6fe2d8c421bd223368a5ced]
-   PD    [Univariate Data Series] [Totale industrie ...] [2008-10-20 19:22:15] [d32f94eec6fe2d8c421bd223368a5ced]
-   PD    [Univariate Data Series] [Niet werkende wer...] [2008-10-20 19:30:32] [d32f94eec6fe2d8c421bd223368a5ced]
-   PD    [Univariate Data Series] [Productietempo vo...] [2008-10-20 19:38:16] [d32f94eec6fe2d8c421bd223368a5ced]
Feedback Forum
2008-10-16 11:09:38 [Stefan Eyckmans] [reply
Tracht de outlier weg te werken. Dit kan je doen door de randgetallen van de outlier te nemen en daar het gemiddelde van te nemen.
2008-10-19 21:50:09 [Pieter Schuermans] [reply
Op het einde van de reeks vertoon de grafiek een plotse daling. Je moet deze proberen te verklaren.
2008-10-20 14:30:49 [Ruben Jacobs] [reply
Er zit een redelijke constante stijgende trend in buiten de outlier en plotse daling op het einde van de tijdreeks. Probeer deze 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:
26,95
29,08
28,76
29,59
30,7
30,52
32,67
33,19
37,13
35,54
37,75
41,84
42,94
49,14
44,61
40,22
44,23
45,85
53,38
53,26
51,8
55,3
57,81
63,96
63,77
59,15
56,12
57,42
63,52
61,71
63,01
68,18
72,03
69,75
74,41
74,33
64,24
60,03
59,44
62,5
55,04
58,34
61,92
67,65
67,68
70,3
75,26
71,44
76,36
81,71
92,6
90,6
92,23
94,09
102,79
109,65
124,05
132,69
135,81
116,07
101,42




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 2 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=16168&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=16168&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=16168&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 time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Univariate Dataseries
Name of dataseriesBrent in USD per vat
SourceBelgostat
DescriptionBrent in USD per vat
Number of observations61

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=16168&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 dataseriesBrent in USD per vat
SourceBelgostat
DescriptionBrent in USD per vat
Number of observations61



Parameters (Session):
par1 = Brent in USD per vat ; par2 = Belgostat ; par3 = Brent in USD per vat ;
Parameters (R input):
par1 = Brent in USD per vat ; par2 = Belgostat ; par3 = Brent in USD per vat ;
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')