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 computationMon, 29 Feb 2016 15:06:57 +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/2016/Feb/29/t1456758465vm0s3b7rzs412qu.htm/, Retrieved Tue, 30 Apr 2024 20:16:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=292980, Retrieved Tue, 30 Apr 2024 20:16:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsconsumptieprijsindex herenkleding
Estimated Impact98

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] [Cijfers herenkleding] [2016-02-29 15:06:57] [e8ed7dc40d9fbb52598929afddf17a62] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2010M1	100.05
2010M2	99.84
2010M3	99.79
2010M4	99.72
2010M5	99.84
2010M6	99.84
2010M7	99.84
2010M8	100.14
2010M9	100.16
2010M10	100.36
2010M11	100.49
2010M12	100.55
2010M13	100.55
2010M14	100.41
2010M15	100.54
2010M16	100.66
2010M17	100.86
2010M18	100.88
2010M19	100.88
2010M20	101.37
2010M21	101.84
2010M22	102.25
2010M23	102.58
2010M24	102.59
2010M25	102.59
2010M26	101.95
2010M27	101.94
2010M28	102.18
2010M29	102.47
2012M6	102.5
2012M7	102.5
2012M8	102.87
2012M9	103.08
2012M10	103.47
2012M11	103.65
2012M12	103.68
2013M1	99.76
2013M2	99.13
2013M3	99.19
2013M4	99.37
2013M5	99.61
2013M6	99.65
2013M7	99.66
2013M8	99.98
2013M9	100.38
2013M10	100.92
2013M11	101.16
2013M12	101.19
2014M1	101.52
2014M2	101.14
2014M3	101.38
2014M4	101.46
2014M5	101.52
2014M6	101.53
2014M7	100.79
2014M8	101.2
2014M9	101.28
2014M10	101.59
2014M11	101.75
2014M12	101.76

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=292980&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=292980&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=292980&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


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Cijfers herenkleding ; par2 = NBB.STAT ; par3 = Consumptieprijsindex van herenkleding ; par4 = 12 ;
Parameters (R input):
par1 = Cijfers herenkleding ; par2 = NBB.STAT ; par3 = Consumptieprijsindex van herenkleding ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'Consumptieprijsindex van herenkleding'
par2 <- 'NBB.STAT'
par1 <- 'Cijfers herenkleding'
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')