Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationFri, 04 Aug 2017 14:37:55 +0200
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/Aug/04/t1501850312pj4smzrg9urxxzn.htm/, Retrieved Sat, 11 May 2024 16:12:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=306905, Retrieved Sat, 11 May 2024 16:12:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact105
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2017-08-04 12:37:55] [b4406e95441bfa154caa3f19e1e15192] [Current]
Feedback Forum

Post a new message
Dataseries X:
5947968
5925816
5903352
5856864
6316752
6292416
5947968
5718960
5741112
5741112
5765760
5810064
5879016
5879016
5834712
5718960
6316752
6407856
6270264
5947968
6085872
5879016
5972304
6016920
6063408
5947968
5972304
5810064
6316752
6476808
6339216
6085872
6361368
6063408
6339216
6316752
6385704
6132360
6407856
6385704
6799104
6705816
6339216
6154512
6407856
6063408
6316752
6361368
6454656
6248112
6361368
6430320
6683664
6476808
6201312
5903352
6179160
5421000
5787912
5994456
6201312
5903352
5903352
5903352
6063408
5834712
5534568
5283408
5465616
4754256
5190120
5443464
5489952
5236608
5258760
5190120
5421000
5258760
4938960
4707768
5098704
4249752
4801056
5052216
5052216
4754256
4478760
4456608
4707768
4478760
4043208
3743064
4065360
3307512
3996408
4363008
4478760
4225416
3905304
4134312
4225416
4156464
3467256
3147456
3376152
2687256
3398616
3651960
3858504
3514056
3191760
3376152
3467256
3285048
2596152
2296008
2571504
1813656
2640456
3147456




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306905&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=306905&T=0

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

As an alternative you can also use a QR Code:  

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

Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







Univariate Dataseries
Name of dataseriesOmzet productie auto-matten
SourceNiet gekend
Descriptionde omzet van auto-matten in euro
Number of observations120

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Omzet productie auto-matten \tabularnewline
Source & Niet gekend \tabularnewline
Description & de omzet van auto-matten in euro \tabularnewline
Number of observations & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306905&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Omzet productie auto-matten[/C][/ROW]
[ROW][C]Source[/C][C]Niet gekend[/C][/ROW]
[ROW][C]Description[/C][C]de omzet van auto-matten in euro[/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=306905&T=1

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

As an alternative you can also use a QR Code:  

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

Univariate Dataseries
Name of dataseriesOmzet productie auto-matten
SourceNiet gekend
Descriptionde omzet van auto-matten in euro
Number of observations120







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
1813656 4433208 5776836 5234297 6137898 6799104 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
1813656 4433208 5776836 5234297 6137898 6799104 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=306905&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
1813656 4433208 5776836 5234297 6137898 6799104 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=306905&T=2

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

As an alternative you can also use a QR Code:  

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

Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
1813656 4433208 5776836 5234297 6137898 6799104 



Parameters (Session):
Parameters (R input):
par1 = Omzet productie auto-matten ; par2 = Niet gekend ; par3 = de omzet van auto-matten in euro ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- 'de omzet van auto-matten in euro'
par2 <- 'Niet gekend'
par1 <- 'Omzet productie auto-matten'
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')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('summary(x)'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')