FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationSat, 03 Oct 2015 22:35:47 +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/2015/Oct/03/t1443908363j080aj6mkifsxv9.htm/, Retrieved Wed, 15 May 2024 05:49:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=281350, Retrieved Wed, 15 May 2024 05:49:33 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsGebouwen
Estimated Impact85

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Aantal gebouwen j...] [2015-10-03 21:35:47] [4cb864837b76d57ed1be196f412f1dd6] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2500	
2210	
2526	
2249	
2024	
2091	
2045	
1882	
1831	
1964	
1763	
1688	
2149	
1823	
2094	
2145	
1790	
1996	
2097	
1795	
1963	
2041	
1746	
2210	
2949	
3110	
3716	
3014	
1515	
1498	
1366	
1607	
1757	
1623	
1451	
1765

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=281350&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]0 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=281350&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=281350&T=0

As an alternative you can also use a QR Code:  
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 time0 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net






Univariate Dataseries
Name of dataseriesAantal gebouwen
Sourcehttp://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl#
DescriptionAantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014
Number of observations36

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Aantal gebouwen \tabularnewline
Source & http://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl# \tabularnewline
Description & Aantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014 \tabularnewline
Number of observations & 36 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=281350&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Aantal gebouwen[/C][/ROW]
[ROW][C]Source[/C][C]http://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl#[/C][/ROW]
[ROW][C]Description[/C][C]Aantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014[/C][/ROW]
[ROW][C]Number of observations[/C][C]36[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=281350&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=281350&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Univariate Dataseries
Name of dataseriesAantal gebouwen
Sourcehttp://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl#
DescriptionAantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014
Number of observations36


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Aantal gebouwen ; par2 = http://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl# ; par3 = Aantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014 ; par4 = 12 ;
Parameters (R input):
par1 = Aantal gebouwen ; par2 = http://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl# ; par3 = Aantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014 ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Aantal gebouwen in België op maandelijkse basis van januari 2012 tot december 2014'
par2 <- 'http://stat.nbb.be/Index.aspx?ThemeTreeId=17&lang=nl#'
par1 <- 'Aantal gebouwen'
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')