Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationWed, 17 Sep 2014 21:56:32 +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/2014/Sep/17/t1410987466ar8rzp4wrta0c9b.htm/, Retrieved Tue, 14 May 2024 17:36:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235828, Retrieved Tue, 14 May 2024 17:36:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact138
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2014-09-17 20:56:32] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
11201
7804
8918
7874
8374
9099
7860
8000
7930
9079
8620
2513
13991
10095
11445
8792
8716
9607
7843
7221
8242
8839
6874
2478
11351
6480
6809
5464
4791
5179
4605
3809
5366
4402
4225
1719
7064
4820
6150
4971
4295
5713
4588
4253
5275
5114
5450
2088
9228
6060
7322
6147
6102
5988
5095
4971
5883
6211
6352
2581
9787
6187
7456
5127
5615
6243
5161
5439
4939
5349
4959
3080
7695
4965
6179
5166
5012
5094
4855
4272
4658
5146
5346
6009




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235828&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]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235828&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235828&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net







Univariate Dataseries
Name of dataseriesVerkoop bedrijfsvoertuigen
Sourcehttp://www.cbs.nl
Description
Number of observations84

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & Verkoop bedrijfsvoertuigen \tabularnewline
Source & http://www.cbs.nl \tabularnewline
Description &  \tabularnewline
Number of observations & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235828&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Verkoop bedrijfsvoertuigen[/C][/ROW]
[ROW][C]Source[/C][C]http://www.cbs.nl[/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235828&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235828&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 dataseriesVerkoop bedrijfsvoertuigen
Sourcehttp://www.cbs.nl
Description
Number of observations84



Parameters (Session):
par1 = Verkoop bedrijfsvoertuigen ; par2 = http://www.cbs.nl ; par4 = 12 ;
Parameters (R input):
par1 = Verkoop bedrijfsvoertuigen ; par2 = http://www.cbs.nl ; par3 = ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- ''
par2 <- 'http://www.cbs.nl'
par1 <- 'Verkoop bedrijfsvoertuigen'
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')