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 computationThu, 22 Sep 2016 21:02:31 +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/22/t1474574635azjlh7vnebal8rt.htm/, Retrieved Thu, 09 May 2024 02:42:32 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Thu, 09 May 2024 02:42:32 +0200
QR Codes:

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

Tree of Dependent Computations

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
	
	580112
2010M2	
	574761
2010M3	
	563250
2010M4	
	551531
2010M5	
	537034
2010M6	
	544686
2010M7	
	600991
2010M8	
	604378
2010M9	
	586111
2010M10	
	563668
2010M11	
	548604
2010M12	
	551174
2011M1	
	555654
2011M2	
	547970
2011M3	
	540324
2011M4	
	530577
2011M5	
	520579
2011M6	
	518654
2011M7	
	572273
2011M8	
	581302
2011M9	
	563280
2011M10	
	547612
2011M11	
	538712
2011M12	
	540735
2012M1	
	561649
2012M2	
	558685
2012M3	
	545732
2012M4	
	536352
2012M5	
	527676
2012M6	
	530455
2012M7	
	581744
2012M8	
	598714
2012M9	
	583775
2012M10	
	571477
2012M11	
	563278
2012M12	
	564872
2013M1	
	577537
2013M2	
	572399
2013M3	
	565430
2013M4	
	560619
2013M5	
	551227
2013M6	
	553397
2013M7	
	610893
2013M8	
	621668
2013M9	
	613148
2013M10	
	598778
2013M11	
	590623
2013M12	
	595902
2014M1	
	612186
2014M2	
	603453
2014M3	
	593362
2014M4	
	581940
2014M5	
	568075
2014M6	
	567467
2014M7	
	619423
2014M8	
	627325
2014M9	
	617144
2014M10	
	602280
2014M11	
	590816
2014M12	
	589812
2015M1	
	600615
2015M2	
	595729
2015M3	
	586958
2015M4	
	567705
2015M5	
	551407
2015M6	
	554324
2015M7	
	595557
2015M8	
	602467
2015M9	
	587774
2015M10	
	572107
2015M11	
	562014
2015M12	
	565657

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.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]'Gwilym Jenkins' @ jenkins.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:  
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'Gwilym Jenkins' @ jenkins.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Aantal niet-werkende werkzoekende ; par2 = nbb ; par3 = Aantal niet-werkende werkzoekenden tussen 2010 en 2015 ; par4 = 12 ;
Parameters (R input):
par1 = Aantal niet-werkende werkzoekende ; par2 = nbb ; par3 = Aantal niet-werkende werkzoekenden tussen 2010 en 2015 ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Aantal niet-werkende werkzoekenden tussen 2010 en 2015 '
par2 <- 'nbb'
par1 <- 'Aantal niet-werkende werkzoekende'
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')