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 13:18:47 -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/13/t1223925855r8zm07fl078pwpp.htm/, Retrieved Sun, 19 May 2024 15:52:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=15971, Retrieved Sun, 19 May 2024 15:52:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact175
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Univariate Data Series] [Tijdreeks 1] [2008-10-13 19:18:47] [43c9d963ed066210c3ba0eeb16abf6b5] [Current]
F RMP     [Central Tendency] [Tijdreeks 1: Indu...] [2008-10-20 19:21:47] [b82ef11dce0545f3fd4676ec3ebed828]
Feedback Forum
2008-10-19 15:27:15 [Stijn Loomans] [reply
Een goede grafiek als je duidelijk kunt uitleggen waarom al die dalen terug komen
2008-10-20 14:18:10 [Nathalie Koulouris] [reply
De grafieken bevatten geen abnormale gebeurtenissen of structurele veranderingen. Bij twee tijdreeksen zijn er een paar outliers. Als je de pieken gaat onderzoeken en kan verklaren, zou dit geen probleem moeten vormen.
2008-10-20 16:55:17 [Romina Battain] [reply
Goede grafiek met opmerkelijk veel pieken. Wanneer deze pieken verantwoord kunnen worden, is het helemaal in orde.
2008-10-20 17:33:02 [Stéphanie Thijs] [reply
Het is misschien interessant om de x-as en de y-as te benoemen. Ik ga er vanuit dat de x-as tijd is, maar wat is de y-as? Percentage, productie in miljoenen euro's?
2008-10-22 17:16:21 [Romina Machiels] [reply
De tijdreeks werd goed bestudeerd, er zijn outliërs maar de student legt uit hoe die daar komen. Hij had eventueel wel de central tendency kunnen berekenen om nog wat meer eigenschappen te bekijken. Voor de andere 3 tijdreeksen werd ook goede uitleg gegeven maar ook hier had de student misschien telkens de central tendency nog kunnen berekenen om nog andere eigenschappen te bestuderen.

Post a new message
Dataseries X:
97.4
97
105.4
102.7
98.1
104.5
87.4
89.9
109.8
111.7
98.6
96.9
95.1
97
112.7
102.9
97.4
111.4
87.4
96.8
114.1
110.3
103.9
101.6
94.6
95.9
104.7
102.8
98.1
113.9
80.9
95.7
113.2
105.9
108.8
102.3
99
100.7
115.5
100.7
109.9
114.6
85.4
100.5
114.8
116.5
112.9
102
106
105.3
118.8
106.1
109.3
117.2
92.5
104.2
112.5
122.4
113.3
100
110.7
112.8
109.8
117.3
109.1
115.9
95.7




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132

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

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







Univariate Dataseries
Name of dataseriesIndustriële productie van België (incl. bouwsector) (jaar 2000 = 100)
SourceBelgoStat
Description
Number of observations67

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Industriële productie van België (incl. bouwsector) (jaar 2000 = 100) \tabularnewline
Source & BelgoStat \tabularnewline
Description &  \tabularnewline
Number of observations & 67 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=15971&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Industriële productie van België (incl. bouwsector) (jaar 2000 = 100)[/C][/ROW]
[ROW][C]Source[/C][C]BelgoStat[/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]67[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=15971&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=15971&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 dataseriesIndustriële productie van België (incl. bouwsector) (jaar 2000 = 100)
SourceBelgoStat
Description
Number of observations67



Parameters (Session):
par1 = Industriële productie van België (incl. bouwsector) (jaar 2000 = 100) ; par2 = BelgoStat ;
Parameters (R input):
par1 = Industriële productie van België (incl. bouwsector) (jaar 2000 = 100) ; par2 = BelgoStat ; par3 = ;
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')