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 computationTue, 07 Feb 2017 11:50:27 +0000
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/Feb/07/t1486468286ofyjn2ev4a6v5ov.htm/, Retrieved Sun, 12 May 2024 05:11:10 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sun, 12 May 2024 05:11:10 +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 
2010M1		79,92
2010M2		80,26
2010M3		80,69
2010M4		84,5
2010M5		85,45
2010M6		86,19
2010M7		86,4
2010M8		85,98
2010M9		85,87
2010M10		86,06
2010M11		86,43
2010M12		86,43
2011M1		86,37
2011M2		86,84
2011M3		86,73
2011M4		90,99
2011M5		92,61
2011M6		93,83
2011M7		94,2
2011M8		94,01
2011M9		93,47
2011M10		93,27
2011M11		94,3
2011M12		94,53
2012M1		94,59
2012M2		94,69
2012M3		94,67
2012M4		96,55
2012M5		97,14
2012M6		97,32
2012M7		97,97
2012M8		98,49
2012M9		99,11
2012M10		99,09
2012M11		98,76
2012M12		99,2
2013M1		99,61
2013M2		99,54
2013M3		99,68
2013M4		100,75
2013M5		100,38
2013M6		100,79
2013M7		100,39
2013M8		100,39
2013M9		100,12
2013M10		100
2013M11		99,17
2013M12		99,17
2014M1		99,59
2014M2		99,96
2014M3		99,68
2014M4		101,03
2014M5		100,99
2014M6		101,38
2014M7		101,84
2014M8		101,52
2014M9		101,37
2014M10		101,22
2014M11		101,45
2014M12		101,99
2015M1		104,05
2015M2		104,61
2015M3		105,06
2015M4		105,4
2015M5		104,71
2015M6		104,8
2015M7		104,83
2015M8		104,81
2015M9		104,49
2015M10		104,59
2015M11		104,5
2015M12		104,61

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 = Chocolade ; par4 = 12 ;
Parameters (R input):
par1 = Chocolade ; par2 = ; par3 = ; 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')