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 computationFri, 17 Dec 2010 13:09:23 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/17/t1292591264g6byded9okcl9ou.htm/, Retrieved Thu, 31 Oct 2024 23:35:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=111444, Retrieved Thu, 31 Oct 2024 23:35:55 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact169
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [] [2009-10-12 09:03:04] [ebd107afac1bd6180acb277edd05815b]
-  MPD  [Univariate Data Series] [Paper uitvoer bel...] [2010-11-30 11:19:39] [247f085ab5b7724f755ad01dc754a3e8]
- R PD      [Univariate Data Series] [Werkaanbod in Vla...] [2010-12-17 13:09:23] [a960f182d9e6e851e9aaba5921cd26a4] [Current]
-   P         [Univariate Data Series] [Werkaanbod in Vla...] [2010-12-22 14:48:44] [18a20458ff88c9ba38344d123a9464bc]
Feedback Forum

Post a new message
Dataseries X:
10406
11398
14117
10785
10334
12371
7918
9907
12855
11579
9788
8786
12231
13604
15107
10853
13698
11536
8879
11005
13656
12631
10931
8064
12332
12452
14029
10003
12388
10492
9114
9304
9660
10569
8356
5998
10408
11420
11538
10860
10412
9521
7602
8197
10449
11561
8603
8080
10792
11943
11179
9939
10065
11021
9226
9554
11468
9937
8928
8395
11996
12385
15277
12657
11482
16797
11047
11794
13077
11725
10921
9334
11431
13085
16394
15701
14936
18282
12824
14784
16061
14814
14375
13644
16397
19254
21943
16731
22065
20937
18242
19017
20372
20561
18267
16170
23163
22469
26500
23660
23339
26174
24617
23891
23516
25638
21258
17436
26210
25227
21928
25452
22578
23904
20842
21042
24890
23126
16951
16972
19985
19296
21078
19493
18821
19657
15678
16406
18264
18288
15179
15443
19306
19094
25673
20077
21698
25943
19778
21333
25222
24512
20126




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 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 & 3 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111444&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]3 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=111444&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111444&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 time3 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Univariate Dataseries
Name of dataseries
Sourcehttp://arvastat.vdab.be/arvastat/index.htm
DescriptionWerkaanbod in Vlaanderen
Number of observations143

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries &  \tabularnewline
Source & http://arvastat.vdab.be/arvastat/index.htm \tabularnewline
Description & Werkaanbod in Vlaanderen \tabularnewline
Number of observations & 143 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111444&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C][/C][/ROW]
[ROW][C]Source[/C][C]http://arvastat.vdab.be/arvastat/index.htm[/C][/ROW]
[ROW][C]Description[/C][C]Werkaanbod in Vlaanderen[/C][/ROW]
[ROW][C]Number of observations[/C][C]143[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111444&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=111444&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 dataseries
Sourcehttp://arvastat.vdab.be/arvastat/index.htm
DescriptionWerkaanbod in Vlaanderen
Number of observations143



Parameters (Session):
par2 = http://arvastat.vdab.be/arvastat/index.htm ; par3 = Werkaanbod in Vlaanderen ; par4 = 12 ;
Parameters (R input):
par1 = ; par2 = http://arvastat.vdab.be/arvastat/index.htm ; par3 = Werkaanbod in Vlaanderen ; par4 = 12 ;
R code (references can be found in the software module):
if (par4 != 'No season') {
par4 <- as.numeric(par4)
if (par4 < 4) par4 <- 12
}
summary(x)
n <- length(x)
bitmap(file='test1.png')
if (par4=='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,10))
}
if (par4!='No season') {
plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n')
axis(1,at=seq(1,n,par4))
grid(nx=0,ny=NULL,col='black')
abline(v=seq(1,n,par4),col='black',lty='dotted')
}
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')