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 computationMon, 13 Dec 2010 13:39:33 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/13/t1292247489zr5jjpputtxmowx.htm/, Retrieved Mon, 06 May 2024 13:54:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=108912, Retrieved Mon, 06 May 2024 13:54:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact149
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Univariate Data Series] [HPC Retail Sales] [2008-03-02 15:42:48] [74be16979710d4c4e7c6647856088456]
- RMPD  [Univariate Data Series] [Paper - Run Seque...] [2010-12-11 10:40:29] [1f5baf2b24e732d76900bb8178fc04e7]
-   PD    [Univariate Data Series] [Run Sequence Plot...] [2010-12-11 12:54:45] [1f5baf2b24e732d76900bb8178fc04e7]
-   PD      [Univariate Data Series] [Paper - RSP omzet...] [2010-12-13 13:36:28] [1f5baf2b24e732d76900bb8178fc04e7]
-    D          [Univariate Data Series] [Paper - RSP volum...] [2010-12-13 13:39:33] [ee4a783fb13f41eb2e9bc8a0c4f26279] [Current]
-    D            [Univariate Data Series] [Paper - RSP Micro...] [2010-12-13 13:42:03] [1f5baf2b24e732d76900bb8178fc04e7]
-    D              [Univariate Data Series] [Paper - RSP NASDAQ] [2010-12-13 13:46:42] [1f5baf2b24e732d76900bb8178fc04e7]
-    D            [Univariate Data Series] [Paper - RSP inflatie] [2010-12-13 13:52:14] [1f5baf2b24e732d76900bb8178fc04e7]
-    D              [Univariate Data Series] [Paper - RSP consu...] [2010-12-13 13:54:19] [1f5baf2b24e732d76900bb8178fc04e7]
-    D                [Univariate Data Series] [Paper - RSP feder...] [2010-12-13 13:57:11] [1f5baf2b24e732d76900bb8178fc04e7]
Feedback Forum

Post a new message
Dataseries X:
24563400
14163200
18184800
20810300
12843000
13866700
15119200
8301600
14039600
12139700
9649000
8513600
15278600
15590900
9691100
10882700
10294800
16031900
13683600
8677200
9874100
10725500
8348400
8046200
10862300
8100300
7287500
14002500
19037900
10774600
8960600
7773300
9579700
11270700
9492800
9136800
14487600
10133200
18659700
15980700
9732100
14626300
16904000
13616700
13772900
28749200
31408300
26342800
48909500
41542400
24857200
34093700
22555200
19067500
19029100
15223200
21903700
33306600
23898100
23279600
40699800
37646000
37277000
39246800
27418400
30318700
32808100
28668200
32370300
24171100
25009100
32084300
50117500
27522200
26816800
25136100
30295600
41526100
43845100
39188900
40496400
37438400
46553700
31771400
62108100
46645400
42313100
38841700
32650300
34281100
33096200
23273800
43697600
66902300
44957200
33800900
33487900
27394900
25963400
20952600
17702900
21282100
18449100
14415700
17906300
22197500
15856500
19068700
30855100
21209000
19541600
21955000
33725900
28192800
27377000
16228100
21278900




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=108912&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=108912&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=108912&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Univariate Dataseries
Name of dataseries
Source
Description
Number of observations117

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

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



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