Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 13 Oct 2008 11:58:53 -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/t1223920769tbq50znsa4cvnj9.htm/, Retrieved Sun, 19 May 2024 15:23:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=15805, Retrieved Sun, 19 May 2024 15:23:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact132
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Univariate Data Series] [tijdreeks 2 Consu...] [2008-10-13 17:58:53] [bda7fba231d49184c6a1b627868bbb81] [Current]
Feedback Forum
2008-10-17 15:45:33 [339a57d8a4d5d113e4804fc423e4a59e] [reply
Deze tijdreeks bevat veel negatieve data en is dus niet perfect om te gebruiken. Je kan dit eventueel wel oplossen door bij elke waarde die je hebt een vaste waarde bij te tellen. Kies deze waarde uit zodat al je getallen positief zijn. Wat is de waarde van de y-as juist? is dit een procentuele verandering tov van de vorige periode of... Misschien kan je dit best bij je beschrijving zetten. Ook kan je beter de url naar je data als bron gebruiken dan gewoon de site van Belgostat.
2008-10-19 15:00:09 [e9c861930c027d1bae8828281431911e] [reply
dit is ook een voorbeeld geweest in de les en de oplossing om deze tijdreeks aan te passen word hierboven vermeld
2008-10-20 14:19:25 [Siem Van Opstal] [reply
Je kan beter niet met negatieve data werken in een tijdreeks. Je kan ze wegwerken door bij elke waarde die je hebt een vaste waarde bij te tellen. Je moet de waarde zo kiezen dat alle getallen positief zijn. de y-as moet nog benoemd worden en je kan bij de bron best een link geven naar de specifieke pagina waar je de gegevens gevonden hebt.
2008-10-20 16:31:34 [Lindsay Heyndrickx] [reply
Deze tijdreeks heeft geen goede bronvermelding.
De waarden van de tijdreeksen gaan negatief en dit kan problemen geven in de toekomst. Dit kan je wegwerken door overal een constante bij te tellen zodat je positieve getallen krijgt.
Deze tijdreeks is ook zeer wispelturig en moeilijk om mee te werken.

Post a new message
Dataseries X:
-9
-13
-18
-11
-9
-10
-13
-11
-5
-15
-6
-6
-3
-1
-3
-4
-6
0
-4
-2
-2
-6
-7
-6
-6
-3
-2
-5
-11
-11
-11
-10
-14
-8
-9
-5
-1
-2
-5
-4
-6
-2
-2
-2
-2
2
1
-8
-1
1
-1
2
2
1
-1
-2
-2
-1
-8
-4
-6




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=15805&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'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Univariate Dataseries
Name of dataseriesConsumentenvertrouwen
Sourcewww.beglostat.be
Description
Number of observations61

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Consumentenvertrouwen \tabularnewline
Source & www.beglostat.be \tabularnewline
Description &  \tabularnewline
Number of observations & 61 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=15805&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Consumentenvertrouwen[/C][/ROW]
[ROW][C]Source[/C][C]www.beglostat.be[/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]61[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=15805&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=15805&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 dataseriesConsumentenvertrouwen
Sourcewww.beglostat.be
Description
Number of observations61



Parameters (Session):
par1 = Consumentenvertrouwen ; par2 = www.beglostat.be ;
Parameters (R input):
par1 = Consumentenvertrouwen ; par2 = www.beglostat.be ; 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')