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 19:01:35 +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/t1481652113hxfvnlw0jiqpb7t.htm/, Retrieved Sat, 04 May 2024 22:51:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=299185, Retrieved Sat, 04 May 2024 22:51:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact58
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Univariate analys...] [2016-12-13 18:01:35] [bd7223969ac5b08f41438741a34686d6] [Current]
Feedback Forum

Post a new message
Dataseries X:
5350
6100
4820
5130
4060
6710
4510
5630
5200
4510
4810
4930
4720
4400
4090
4160
5020
5930
4390
4490
5760
5040
4800
4820
4620
4380
4250
4230
3800
6360
4280
4680
5070
4560
4690
4820
4370
3850
5050
4010
4570
4240
3850
4830
5400
4680
4390
4140
4300
4180
4120
3910
4300
4240
3610
3600
3970
3790
3750
3680
3970
4290
3670
3760
4160
3620
4280
4410
4500
4690
3650
3720
3770
3970
3390
3400
3130
3930
3740
3400
3620
3980
3440
3420
3740
3630
3650
3940
3540
3590
3740
3910
3670
3510
3430
3420
3630
3690
3350
3470
3380
3990
3790
3440
3580
3600
3990
3640




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

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

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

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

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







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3130    3670    4075    4215    4582    6710 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3130    3670    4075    4215    4582    6710 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=299185&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3130    3670    4075    4215    4582    6710 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=299185&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=299185&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. 
   3130    3670    4075    4215    4582    6710 



Parameters (Session):
par1 = N1818 ; par4 = 12 ;
Parameters (R input):
par1 = N1818 ; 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')