Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationThu, 30 Jan 2014 08:25:55 -0500
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/Jan/30/t13910884410v73miump6uz9j0.htm/, Retrieved Tue, 28 May 2024 07:01:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=233163, Retrieved Tue, 28 May 2024 07:01:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact176
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2014-01-30 13:25:55] [76c30f62b7052b57088120e90a652e05] [Current]
Feedback Forum

Post a new message
Dataseries X:
5876
6006
6095
6079
6009
6152
6236
6204
6189
6348
6456
6425
6401
6571
6663
6625
6652
6822
6904
6864
6823
7000
7086
7044
7018
7172
7243
7174
7109
7229
7270
7187
7114
7211
7223
7121
7012
7110
7149
7061
7029
7133
7166
7092
7107
7216
7282
7303
7280
7427
7501
7487
7478
7575
7598
7558
7492
7519
7491
7451
7359
7469
7489
7461
7409
7518
7522
7486
7392
7471
7454
7402




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=233163&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 dataserieswerkzame personen nederland
Sourcecbs statline
Descriptionwerkzame personen nederland
Number of observations72

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & werkzame personen nederland \tabularnewline
Source & cbs statline \tabularnewline
Description & werkzame personen nederland \tabularnewline
Number of observations & 72 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233163&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]werkzame personen nederland[/C][/ROW]
[ROW][C]Source[/C][C]cbs statline[/C][/ROW]
[ROW][C]Description[/C][C]werkzame personen nederland[/C][/ROW]
[ROW][C]Number of observations[/C][C]72[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233163&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=233163&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 dataserieswerkzame personen nederland
Sourcecbs statline
Descriptionwerkzame personen nederland
Number of observations72



Parameters (Session):
par1 = werkzame personen nederland ; par2 = cbs statline ; par3 = werkzame personen nederland ; par4 = 12 ;
Parameters (R input):
par1 = werkzame personen nederland ; par2 = cbs statline ; par3 = werkzame personen nederland ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'binnenland mutatievolume goederen'
par2 <- 'cbs statline'
par1 <- 'binnenland mutatievolume goederen'
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')