Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationFri, 19 Sep 2014 11:20:50 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Sep/19/t1411122157kj07x6xr5zgk0mm.htm/, Retrieved Mon, 13 May 2024 10:56:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235874, Retrieved Mon, 13 May 2024 10:56:51 +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)
-       [Univariate Data Series] [] [2014-09-19 10:20:50] [345c72938773a86f996d724d064c8f2d] [Current]
Feedback Forum

Post a new message
Dataseries X:
82303
79596
74472
73562
66618
69029
89899
93774
90305
83799
80320
82497
84420
84646
84186
83269
77793
81145
101691
107357
104253
95963
91432
94324
93855
92183
87600
83641
78195
79604
100846
105293
102518
93132
87479
85476
85460
82868
79941
76909
72613
72496
93244
99126
96748
89318
84724
83111
87497
86961
82319
79196
76898
77971
97335
106855
105401
99108
93456
92506
94602
93027
89722
87391
83030
83390
104501
110393
111017
103434
97817
96893




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net

\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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235874&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235874&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235874&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'Gwilym Jenkins' @ jenkins.wessa.net







Univariate Dataseries
Name of dataserieswerkloosheid 20 tot -25 jaar
SourceBelgostat
DescriptionWerkloosheid 20 tot -25jaar
Number of observations72

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & werkloosheid 20 tot -25 jaar \tabularnewline
Source & Belgostat \tabularnewline
Description & Werkloosheid 20 tot -25jaar \tabularnewline
Number of observations & 72 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235874&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]werkloosheid 20 tot -25 jaar[/C][/ROW]
[ROW][C]Source[/C][C]Belgostat[/C][/ROW]
[ROW][C]Description[/C][C]Werkloosheid 20 tot -25jaar[/C][/ROW]
[ROW][C]Number of observations[/C][C]72[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235874&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235874&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 dataserieswerkloosheid 20 tot -25 jaar
SourceBelgostat
DescriptionWerkloosheid 20 tot -25jaar
Number of observations72



Parameters (Session):
par1 = werkloosheid 20 tot -25 jaar ; par2 = Belgostat ; par3 = Werkloosheid 20 tot -25jaar ; par4 = 12 ;
Parameters (R input):
par1 = werkloosheid 20 tot -25 jaar ; par2 = Belgostat ; par3 = Werkloosheid 20 tot -25jaar ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Werkloosheid 20 tot -25jaar'
par2 <- 'Belgostat'
par1 <- 'werkloosheid 20 tot -25 jaar'
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')