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, 25 Sep 2017 22:41:38 +0200
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Sep/25/t1506372642bazzz53qop1h4sy.htm/, Retrieved Sat, 18 May 2024 22:56:49 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sat, 18 May 2024 22:56:49 +0200
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact0
Dataseries X:
11
13
15
29
31
22
36
39
30
20
18
13
11
16
20
29
31
24
40
41
25
19
19
18
10
17
25
30
32
24
38
36
26
25
26
16
12
15
21
33
32
24
41
2012 januari
2012 februari
2012 maart
2012 april
2012 mei
2012 juni
2012 juli
2012 augustus
2012 september
2012 oktober
2012 november
2012 december
2013 januari
2013 februari
2013 maart
2013 april
2013 mei
2013 juni
2013 juli
2013 augustus
2013 september
2013 oktober
2013 november
2013 december
2014 januari
2014 februari
2014 maart
2014 april
2014 mei
2014 juni
2014 juli
2014 augustus
2014 september
2014 oktober
2014 november
2014 december
2015 januari
2015 februari
2015 maart
2015 april
2015 mei
2015 juni
2015 juli
2015 augustus
2015 september
2015 oktober
2015 november
2015 december
38
28
24
30
18




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center



Parameters (Session):
par1 = Overnachtingen van Belgen aan de Nederlandse Kust ; par2 = Blackboard bestand ; par3 = Logiesaccommodaties Belgen aan de Nederlandse kust: cijfers over het aantal gasten en hun overnachtingen in Nederland in alle hotels, motels, pensions, appartementen met hoteldienstverlening, jeugdaccommodaties en bed&breakfasts met ten minste 5 slaapplaatsen, op alle kampeerterreinen met minimaal 4 toeristische standplaatsen en op huisjesterreinen en in groepsaccommodaties met ten minste 10 slaapplaatsen. ; par4 = No season ;
Parameters (R input):
par1 = Overnachtingen van Belgen aan de Nederlandse Kust ; par2 = Blackboard bestand ; par3 = Logiesaccommodaties Belgen aan de Nederlandse kust: cijfers over het aantal gasten en hun overnachtingen in Nederland in alle hotels, motels, pensions, appartementen met hoteldienstverlening, jeugdaccommodaties en bed&breakfasts met ten minste 5 slaapplaatsen, op alle kampeerterreinen met minimaal 4 toeristische standplaatsen en op huisjesterreinen en in groepsaccommodaties met ten minste 10 slaapplaatsen. ; par4 = No season ;
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')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('summary(x)'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')