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 computationSat, 11 Dec 2010 08:52:24 +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/11/t12920574403s4cabs0hsr422i.htm/, Retrieved Mon, 06 May 2024 20:13:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=108020, Retrieved Mon, 06 May 2024 20:13:24 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact158
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [SHW_WS2_Reeks3] [2009-10-14 18:42:01] [8b1aef4e7013bd33fbc2a5833375c5f5]
- RMPD    [Univariate Data Series] [Aandeel Microsoft...] [2010-12-11 08:52:24] [aa6b599ccd367bc74fed0d8f67004a46] [Current]
Feedback Forum

Post a new message
Dataseries X:
39.18
35.78
42.54
27.92
25.05
32.03
27.95
27.95
24.15
27.57
22.97
17.37
24.45
23.62
21.90
27.12
27.70
29.23
26.50
22.84
20.49
23.28
25.71
26.52
25.51
23.36
24.15
20.92
20.38
21.90
19.21
19.65
17.51
21.41
23.09
20.70
19.00
19.04
19.45
20.54
19.77
20.60
21.21
21.30
22.33
21.12
20.77
22.11
22.34
21.43
20.14
21.11
21.19
23.07
23.01
22.12
22.40
22.66
24.21
24.13
23.73
22.79
21.89
22.92
23.44
22.57
23.27
24.95
23.45
23.42
25.30
23.90
25.73
24.64
24.95
22.15
20.85
21.45
22.15
23.75
25.27
26.53
27.22
27.69
28.61
26.21
25.93
27.86
28.65
27.51
27.06
26.91
27.60
34.48
31.58
33.46
30.64
25.66
26.78
26.91
26.82
26.05
24.36
25.94
25.37
21.23
19.35
18.61
16.37
15.56
17.70
19.52
20.26
23.05
22.81
24.04
25.08
27.04
28.81
29.86
27.61
28.22
28.83
30.06
25.51
22.75
25.52
23.33
24.34
26.51




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=108020&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 dataseriesApple inc
Source
DescriptionApple Inc
Number of observations130

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

[TABLE]
[ROW][C]Univariate Dataseries[/C][/ROW]
[ROW][C]Name of dataseries[/C][C]Apple inc[/C][/ROW]
[ROW][C]Source[/C][C][/C][/ROW]
[ROW][C]Description[/C][C]Apple Inc[/C][/ROW]
[ROW][C]Number of observations[/C][C]130[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=108020&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=108020&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 dataseriesApple inc
Source
DescriptionApple Inc
Number of observations130



Parameters (Session):
par1 = Apple inc ; par3 = Apple Inc ; par4 = 12 ;
Parameters (R input):
par1 = Apple inc ; par2 = ; par3 = Apple Inc ; 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')