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 computationWed, 07 Dec 2016 18:36:27 +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/07/t148113251993eu2xym2a953j8.htm/, Retrieved Wed, 08 May 2024 02:35:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=298262, Retrieved Wed, 08 May 2024 02:35:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact68
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [Plot N2258] [2016-12-07 17:36:27] [153c3207812fd13fe5ceee3276565119] [Current]
Feedback Forum

Post a new message
Dataseries X:
3780
3795
3840
3900
3940
3990
4050
4090
4145
4190
4175
4230
4220
4245
4295
4290
4325
4335
4360
4360
4320
4310
4345
4315
4315
4335
4365
4410
4435
4440
4390
4445
4470
4430
4450
4480
4565
4515
4490
4535
4545
4555
4575
4585
4600
4690
4720
4780
4775
4830
4865
4945
5005
5065
5105
5080
5045
5115
5095
5075
5080
5115
5115
5115
5065
5045
5080
5115
5080
5100
5085
5120
5195
5135
5200
5150
5105
5105
5030
5060
5075
5030
5090
5070
5160
5110
5145
5075
5125
5055
5050
5040
5020
5025
4960
4965
4875
4805
4735
4775
4815
4870
4860
4875
4900
4855
4880
4850
4880
4900
4910
4935
4965
4945
4965
4950




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 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 time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298262&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]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298262&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298262&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 time0 seconds
R ServerBig Analytics Cloud Computing Center







Univariate Dataseries
Name of dataseries
Source
Description
Number of observations116

\begin{tabular}{lllllllll}
\hline
Univariate Dataseries \tabularnewline
Name of dataseries &  \tabularnewline
Source &  \tabularnewline
Description &  \tabularnewline
Number of observations & 116 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=298262&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]116[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=298262&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298262&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 observations116







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3780    4425    4868    4729    5066    5200 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3780    4425    4868    4729    5066    5200 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=298262&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   3780    4425    4868    4729    5066    5200 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=298262&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=298262&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. 
   3780    4425    4868    4729    5066    5200 



Parameters (Session):
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')