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 computationTue, 13 Dec 2016 16:17:37 +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/13/t1481642594sp0nn651ffbaq9h.htm/, Retrieved Fri, 01 Nov 2024 03:31:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=299150, Retrieved Fri, 01 Nov 2024 03:31:12 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact85
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2016-12-13 15:17:37] [9b171b8beffcb53bb49a1e7c02b89c12] [Current]
Feedback Forum

Post a new message
Dataseries X:
6600
6160
6320
5820
6080
6240
5740
6980
6540
6780
6580
6020
6440
6440
7040
6620
6460
6320
6560
6080
6040
6260
5780
5120
6040
5860
5900
5160
5800
5300
5600
5620
6300
5800
5460
5420
5800
5260
5900
5840
5640
5560
5540
5540
5480
5440
5260
5420
5600
5200
5480
5300
4660
4940
4880
4980
5160
5180
4860
5220
4900
4740
4920
4780
4300
4540
4420
4660
4760
4560
4600
4800
4980
4300
4800
3980
4120
4580
4240
4540
4200
4780
4820
4320
4300
3700
3920
3740
4120
4160
4160
3960
3960
4160
3920
3460
4040
3720
4060
4140
3700
3900
3720
3760
3520
3800
3520
3640
4200
3860
4160
3920
3860
3860
3780




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

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

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

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

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







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3460    4160    4940    5024    5800    7040 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3460    4160    4940    5024    5800    7040 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=299150&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3460    4160    4940    5024    5800    7040 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=299150&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=299150&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. 
   3460    4160    4940    5024    5800    7040 



Parameters (Session):
par1 = 12 ; par2 = periodic ; par3 = 0 ; par5 = 1 ; par7 = 1 ; par8 = FALSE ;
Parameters (R input):
par1 = ; par2 = ; par3 = ; par4 = 12 ;
R code (references can be found in the software module):
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')