Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationMon, 19 Sep 2016 19:21:18 +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/2016/Sep/19/t1474309436g57at9eh36dat8m.htm/, Retrieved Thu, 16 May 2024 18:38:51 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Thu, 16 May 2024 18:38:51 +0200
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact0
Dataseries X:
203 089
198 480
192 684
187 827
182 414
182 510
211 524
211 451
200 140
191 568
186 424
191 987
203 583
201 920
195 978
191 395
188 222
189 422
214 419
224 325
216 222
210 506
207 221
210 027
215 191
215 177
211 701
210 176
205 491
206 996
235 980
241 292
236 675
229 127
225 436
229 570
239 973
236 168
230 703
224 790
217 811
219 576
245 472
248 511
242 084
235 572
229 827
229 697
239 567
237 201
233 164
227 755
220 189
221 270
245 413
247 826
237 736
230 079
225 939
228 987




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Univariate Dataseries
Name of dataseriesNWWZ Vlaams Gewest
Sourcehttps://stat.nbb.be
DescriptionTotaal aantal NWWZ in het Vlaams Gewest
Number of observations60

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & NWWZ Vlaams Gewest \tabularnewline
Source & https://stat.nbb.be \tabularnewline
Description & Totaal aantal NWWZ in het Vlaams Gewest \tabularnewline
Number of observations & 60 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]NWWZ Vlaams Gewest[/C][/ROW]
[ROW][C]Source[/C][C]https://stat.nbb.be[/C][/ROW]
[ROW][C]Description[/C][C]Totaal aantal NWWZ in het Vlaams Gewest[/C][/ROW]
[ROW][C]Number of observations[/C][C]60[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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 dataseriesNWWZ Vlaams Gewest
Sourcehttps://stat.nbb.be
DescriptionTotaal aantal NWWZ in het Vlaams Gewest
Number of observations60



Parameters (Session):
par1 = NWWZ Vlaams Gewest ; par2 = https://stat.nbb.be ; par3 = Totaal aantal NWWZ in het Vlaams Gewest ; par4 = 12 ;
Parameters (R input):
par1 = NWWZ Vlaams Gewest ; par2 = https://stat.nbb.be ; par3 = Totaal aantal NWWZ in het Vlaams Gewest ; 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')