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 computationSun, 28 Nov 2010 12:36:51 +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/Nov/28/t1290947710gbi8ofqwnebuc9b.htm/, Retrieved Fri, 03 May 2024 02:49:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=102519, Retrieved Fri, 03 May 2024 02:49:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact147
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]
- RMPD    [Univariate Data Series] [Paper - Werkloosh...] [2010-11-28 12:36:51] [cfd788255f1b1b5389e58d7f218c70bf] [Current]
Feedback Forum

Post a new message
Dataseries X:
246.861
246.843
246.947
241.679
240.085
241.514
250.525
250.567
252.145
251.877
245.817
248.269
246.31
246.733
245.028
240.022
238.614
238.096
248.53
248.381
247.567
241.783
235
237.384
238.02
236.412
232.279
230.408
230.254
229.217
239.658
239.906
236.558
223.566
216.054
214.685
216.086
211.692
204.681
203.075
198.401
191.246
206.75
209.611
199.573
195.635
190.062
193.134
194.795
190.835
185.045
184.425
177.293
180.549
195.344
196.597
189.102
185.749
185.145
192.243
197.356
199.436
201.79
203.071
198.796
203.546
218.306
220.995
213.335
208.412
206.568
215.261
218.065




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=102519&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=102519&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=102519&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'George Udny Yule' @ 72.249.76.132







Univariate Dataseries
Name of dataseries25-40 jaar (Leeftijd)
Sourcebelgostat.be
DescriptionDe werkloosheid in tijd
Number of observations73

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & 25-40 jaar (Leeftijd) \tabularnewline
Source & belgostat.be \tabularnewline
Description & De werkloosheid in tijd \tabularnewline
Number of observations & 73 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=102519&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]25-40 jaar (Leeftijd)[/C][/ROW]
[ROW][C]Source[/C][C]belgostat.be[/C][/ROW]
[ROW][C]Description[/C][C]De werkloosheid in tijd[/C][/ROW]
[ROW][C]Number of observations[/C][C]73[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=102519&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=102519&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 dataseries25-40 jaar (Leeftijd)
Sourcebelgostat.be
DescriptionDe werkloosheid in tijd
Number of observations73



Parameters (Session):
par1 = 25-40 jaar (Leeftijd) ; par2 = belgostat.be ; par3 = De werkloosheid in tijd ; par4 = 12 ;
Parameters (R input):
par1 = 25-40 jaar (Leeftijd) ; par2 = belgostat.be ; par3 = De werkloosheid in tijd ; 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')