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, 15 Dec 2016 10:43:58 +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/15/t14817951555ygmrg46gb2jzr2.htm/, Retrieved Fri, 01 Nov 2024 03:27:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=299795, Retrieved Fri, 01 Nov 2024 03:27:34 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact140
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [N2070 - r0481974] [2016-12-15 09:43:58] [ee2f08b6fcfe19fae25bd9410e008f6d] [Current]
Feedback Forum

Post a new message
Dataseries X:
5255
4705
5097
5050
4852
4710
4824
4866
4744
4895
4735
5068
4866
4384
5066
4650
4759
4819
4833
5004
4857
4817
4854
5383
5387
4645
5234
4866
5079
4971
4970
5222
4773
5026
4943
5070
5239
4753
4980
4870
5025
4852
4993
5210
4771
5156
4960
5436
5254
4776
5271
5038
5181
5007
5267
5420
4986
5404
5111
5564
5389
5007
5234
5217
5174
5250
5515
5272
5239
5452
5123
5735
5669
5400
5718
5170
5273
5399
5431
5671
5323
5676
5500
6005
5586
5261
5841
5229
5370
5537
5339
5680
5235
5609
5485
6176
5478
5038
5570
5261
5457
5390
5511
5859
5207
5543
5333
5481
5608
4978
5318
5063
5375
5339
5559
5586
5290
5553
5297
5691
5628
5146
5498
5310
5385
5381




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

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

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

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

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







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4384    4988    5239    5223    5435    6176 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4384    4988    5239    5223    5435    6176 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=299795&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   4384    4988    5239    5223    5435    6176 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=299795&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=299795&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. 
   4384    4988    5239    5223    5435    6176 



Parameters (Session):
par1 = N2070 ; par4 = No season ;
Parameters (R input):
par1 = N2070 ; par2 = ; par3 = ; par4 = No season ;
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')