Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_univariatedataseries.wasp
Title produced by softwareUnivariate Data Series
Date of computationThu, 08 Dec 2016 20:21:13 +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/2016/Dec/08/t14812253063ia30crecj285zh.htm/, Retrieved Sat, 27 Apr 2024 23:15:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=298380, Retrieved Sat, 27 Apr 2024 23:15:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact65
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [N2470] [2016-12-08 19:21:13] [c0b73e623858a81821526bb2f691ccd9] [Current]
Feedback Forum

Post a new message
Dataseries X:
3300
4100
3550
3650
3400
4050
2950
3300
3950
3950
3900
3700
3850
4350
4350
3550
3800
4150
3500
3850
4250
4150
4200
4100
4200
4350
4150
4200
3850
4100
3800
4250
4400
4400
4450
4050
4100
4450
4600
4100
4300
4850
3800
4450
4800
4900
4900
4350
4500
5050
5150
4450
4900
5450
4100
5050
5550
5450
5500
4950
5400
5750
5950
5950
5750
6450
5000
5950
6250
6300
6400
5700
5750
6450
6500
5950
6200
6750
5300
6450
6900
6800
6750
6050
6100
7400
7300
6200
6550
7500
5400
6750
7400
7450
7200
6500
7150
8000
7000
7600
7100
8050
5700
7550
7800
7800
8250
7150
7350
7800
8250
7500
8150
8550




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298380&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 dataseriesF1 competitie
Source
Description
Number of observations114

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries & F1 competitie \tabularnewline
Source &  \tabularnewline
Description &  \tabularnewline
Number of observations & 114 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298380&T=1

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]F1 competitie[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]114[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=298380&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298380&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 dataseriesF1 competitie
Source
Description
Number of observations114







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2950    4162    5225    5447    6538    8550 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2950    4162    5225    5447    6538    8550 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=298380&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2950    4162    5225    5447    6538    8550 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298380&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298380&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. 
   2950    4162    5225    5447    6538    8550 



Parameters (Session):
Parameters (R input):
par1 = F1 competitie ; par2 = ; par3 = ; par4 = 12 ;
R code (references can be found in the software module):
par4 <- '12'
par3 <- ''
par2 <- ''
par1 <- 'F1 competitie'
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')