Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationWed, 08 Oct 2008 10:16:50 -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/08/t12234826455tyxov9avjd5sii.htm/, Retrieved Sun, 19 May 2024 13:20:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=15051, Retrieved Sun, 19 May 2024 13:20:10 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact244
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Univariate Data Series] [uitvoer: Waalse g...] [2008-10-08 16:16:50] [944d8adf3df3edf31baf0193691ac7f1] [Current]
Feedback Forum
2008-10-15 16:40:23 [Glenn De Maeyer] [reply
2008-10-15 16:43:51 [c4ccf1f44d59ce687616256b9e80d6b0] [reply
De 4 tijdreeksen van uitvoer in Belgë vertonen een goed verloop. Er is geen sprake van extreme minima of maxima die de statische berekeningen zouden kunnen beïnvloeden. De enige opmerking is dat er nergens een vermelding is van de eenheid van de gegevens: duizenden, honderden, miljoenen?
2008-10-18 10:17:16 [Ine Coremans] [reply
De datareeksen zijn ingegeven via getallen gescheiden met een komma. Het systeem werkt via punten, dus deze aanpassing moet nog gebeuren.
Het verloop van de tijdreeks is goed, zonder veel extreme minima of maxima. Er is ook sprake van een stijgende evolutie, wat een voorspelling min of meer mogelijk maakt.
2008-10-18 18:04:19 [Kristof Van Esbroeck] [reply
De grafiek geeft een stijgende tendens weer zonder grote outliers. De beschouwde periode is goed, er zijn geen missende waarden of foute data.
2008-10-19 20:57:04 [Evelien Blockx] [reply
Dit is naar mijn mening een goede tijdreeks. Je neemt ruim voldoende observaties en echte outliers zijn hier niet aanwezig.
2008-10-20 16:15:32 [a9d641c8b88cd97bdfe55e3671cf3c5a] [reply
ik ga akkoord met bovenstaande commentaren.
2008-10-20 18:10:40 [Nathalie Boden] [reply
Ook hier zijn er voldoende observaties gebeurd en toont de grafiek een stijgende tendens zonder al te grote minima of maxima. Ik ga uit van een goede tijdreeks.

Post a new message
Dataseries X:
2468,9
2469,2
2417,7
2411,1
2361
1924,1
2486,9
2674,9
2296,2
2101,5
2322
2273,8
2501,3
2435,2
2273,3
2454,7
2328,8
1897
2608,1
2712,3
2322
2282,6
2241,1
2417,2
2829
2600,6
2321
2768,5
2457,3
2142,7
2764,4
2788,9
2679,5
2536,5
2682,7
2699,6
3097,8
3015,2
2878
3010,9
2612,3
2419,3
3096,5
3013
3397,4
3423,1
3298,7
3065,7
3918,3
3154,4
3334,7
3461,6
3018,5
2832
3301,3
3342,8
3464,4
3016,6
3201,3
3135,3
3549,8
3247,2
3441,8
3535,6
3384,7
2996,6
3402,8
3900,2
3776,4
3197,5
4022,4
3845,1
3818,6




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=15051&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=15051&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=15051&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 dataseriesuitvoer: Waalse gewest
SourceBelgostat
Description
Number of observations73

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & uitvoer: Waalse gewest \tabularnewline
Source & Belgostat \tabularnewline
Description &  \tabularnewline
Number of observations & 73 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=15051&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]uitvoer: Waalse gewest[/C][/ROW]
[ROW][C]Source[/C][C]Belgostat[/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]73[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=15051&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=15051&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 dataseriesuitvoer: Waalse gewest
SourceBelgostat
Description
Number of observations73



Parameters (Session):
par1 = uitvoer: Waalse gewest ; par2 = Belgostat ;
Parameters (R input):
par1 = uitvoer: Waalse gewest ; 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')