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 computationFri, 14 Aug 2015 18:46:02 +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/Aug/14/t1439574452bq9f5sovvd682dd.htm/, Retrieved Sat, 18 May 2024 22:46:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=280073, Retrieved Sat, 18 May 2024 22:46:04 +0000
QR Codes:

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

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] [] [2015-08-14 17:07:23] [74be16979710d4c4e7c6647856088456]
- R PD    [Univariate Data Series] [] [2015-08-14 17:46:02] [f898ec974b62c60a8bec4044c4c271e3] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5452304
5431998
5411406
5368792
5790356
5768048
5452304
5242380
5262686
5262686
5285280
5325892
5389098
5389098
5348486
5242380
5790356
5873868
5747742
5452304
5578716
5389098
5474612
5515510
5558124
5452304
5474612
5325892
5790356
5937074
5810948
5578716
5831254
5558124
5810948
5790356
5853562
5621330
5873868
5853562
6232512
6146998
5810948
5641636
5873868
5558124
5790356
5831254
5916768
5727436
5831254
5894460
6126692
5937074
5684536
5411406
5664230
4969250
5305586
5494918
5684536
5411406
5411406
5411406
5558124
5348486
5073354
4843124
5010148
4358068
4757610
4989842
5032456
4800224
4820530
4757610
4969250
4820530
4527380
4315454
4673812
3895606
4400968
4631198
4631198
4358068
4105530
4085224
4315454
4105530
3706274
3431142
3726580
3031886
3663374
3999424
4105530
3873298
3579862
3789786
3873298
3810092
3178318
2885168
3094806
2463318
3115398
3347630
3536962
3221218
2925780
3094806
3178318
3011294
2379806
2104674
2357212
1662518
2420418
2885168

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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280073&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280073&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=280073&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'Herman Ole Andreas Wold' @ wold.wessa.net






Univariate Dataseries
Name of dataseriesOmzet product printpapier (EUR jaarbasis)
Sourceniet gekend
DescriptionDeze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Omzet product printpapier (EUR jaarbasis) \tabularnewline
Source & niet gekend \tabularnewline
Description & Deze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014 \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=280073&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Omzet product printpapier (EUR jaarbasis)[/C][/ROW]
[ROW][C]Source[/C][C]niet gekend[/C][/ROW]
[ROW][C]Description[/C][C]Deze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=280073&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=280073&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 dataseriesOmzet product printpapier (EUR jaarbasis)
Sourceniet gekend
DescriptionDeze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014
Number of observations120


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = Omzet product printpapier (EUR jaarbasis) ; par2 = niet gekend ; par3 = Deze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014 ; par4 = 12 ;
Parameters (R input):
par1 = Omzet product printpapier (EUR jaarbasis) ; par2 = niet gekend ; par3 = Deze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014 ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- 'No season'
par3 <- 'Deze reeks geeft de omzet van printpapier op jaarbasis weer van januari 2005 tot december 2014'
par2 <- 'niet gekend'
par1 <- 'Omzet product printpapier (EUR jaarbasis)'
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')