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 computationSun, 22 Jan 2017 19:13:44 +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/2017/Jan/22/t1485108830fx9pn6suw4afnij.htm/, Retrieved Tue, 14 May 2024 17:42:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=303498, Retrieved Tue, 14 May 2024 17:42:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact78
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Univariate Data Series] [] [2017-01-22 18:13:44] [94ac3c9a028ddd47e8862e80eac9f626] [Current]
Feedback Forum

Post a new message
Dataseries X:
7420
7512
7670
7946
8438
8524
8598
8540
8594
8456
8532
8404
8280
8042
7732
7520
7384
7434
7442
7316
7120
6986
6738
6436
6344
6282
6278
6230
6052
5796
5564
5210
5050
5042
5026
4868
4838
4902
4966
4844
4840
4912
5046
5122
5150
5228
5340
5598
5870
5896
5830
5902
5954
5760
5800
5974
5838
5660
5558
5496
5640
5610
5516
5352
5350
5324
5318
5244
5134
4976
4808
4632
4500
4266
3926
3788
3500
3160
3072
2980
2736
2648
2420
2224
2202
2244
2318
2504
2620
2774
2996
2966
3000
2984
2740
2604
2548
2584
2376
2222
2204
2304
2354
2382
2574
2762
2742
2844
2978
3042
3162
2948
2850
2962
2920
2514
2940
2830
2604
2390
2368
2418
2260
2122




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

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

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

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







Summary Statistics of dataseries x
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2122    2840    5001    4778    5915    8598 

\begin{tabular}{lllllllll}
\hline
Summary Statistics of dataseries x \tabularnewline
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2122    2840    5001    4778    5915    8598 
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=303498&T=2

[TABLE]
[ROW][C]Summary Statistics of dataseries x[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   2122    2840    5001    4778    5915    8598 
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=303498&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=303498&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. 
   2122    2840    5001    4778    5915    8598 



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')