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, 18 Sep 2013 09:24:33 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Sep/18/t1379510730207j37jb5mcxv9u.htm/, Retrieved Sat, 27 Apr 2024 17:10:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=211483, Retrieved Sat, 27 Apr 2024 17:10:59 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact104
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2013-09-18 13:24:33] [6db2c0c963bf82ed406b79886f98dcae] [Current]
Feedback Forum

Post a new message
Dataseries X:
2926
2612
3484
3507
3599
3678
3704
3498
3564
3647
3754
3888
3897
3818
3697
3731
3724
3954
3999
3811
3821
3928
4055
4139
4152
4053
3810
3704
3663
3810
3833
3675
3581
3604
3691
3714
3668
3520
3331
3295
3283
3385
3460
3235
3213
3352
3435
3544
3578
3533
3400
3429
3463
3672
3674
3412
3489
3560
3674
3792
3862
3804
3800
3868
4024
4067
4091
3983
4065
4117
4177
4303
4309




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ yule.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 & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=211483&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]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=211483&T=0

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







Univariate Dataseries
Name of dataseriesNiet-werkende werkzoekenden
SourceBelgostat
DescriptionNiet-werkende werkzoekenden id landbouw
Number of observations73

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Niet-werkende werkzoekenden \tabularnewline
Source & Belgostat \tabularnewline
Description & Niet-werkende werkzoekenden id landbouw \tabularnewline
Number of observations & 73 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=211483&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Niet-werkende werkzoekenden[/C][/ROW]
[ROW][C]Source[/C][C]Belgostat[/C][/ROW]
[ROW][C]Description[/C][C]Niet-werkende werkzoekenden id landbouw[/C][/ROW]
[ROW][C]Number of observations[/C][C]73[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=211483&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=211483&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 dataseriesNiet-werkende werkzoekenden
SourceBelgostat
DescriptionNiet-werkende werkzoekenden id landbouw
Number of observations73



Parameters (Session):
par1 = Niet-werkende werkzoekenden ; par2 = Belgostat ; par3 = Niet-werkende werkzoekenden id landbouw ; par4 = 12 ;
Parameters (R input):
par1 = Niet-werkende werkzoekenden ; par2 = Belgostat ; par3 = Niet-werkende werkzoekenden id landbouw ; 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')