1
2# Rmetrics is free software; you can redistribute it and/or
3# modify it under the terms of the GNU Library General Public
4# License as published by the Free Software Foundation; either
5# version 2 of the License, or (at your option) any later version.
6#
7# Rmetrics is distributed in the hope that it will be useful,
8# but WITHOUT ANY WARRANTY; without even the implied warranty of
9# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10# GNU Library General Public License for more details.
11#
12# You should have received a copy of the GNU Library General
13# Public License along with this library; if not, write to the
14# Free Foundation, Inc., 59 Temple Place, Suite 330, Boston,
15# MA  02111-1307  USA
16
17
18################################################################################
19
20
21test.dim.timeSeries =
22function()
23{
24    # RUnit Test:
25
26    # Univariate Case:
27    tS = timeSeries(format = "counts")[, 1]
28    dim(tS)
29    NCOL(tS)
30    NROW(tS)
31    ncol(tS)
32    nrow(tS)
33    dimnames(tS)
34    colnames(tS)
35    rownames(tS)
36    # colnames<-
37    # rownames<-
38    is.array(tS)
39
40    # Multivariate Case:
41    tS = timeSeries(format = "counts")
42    dim(tS)
43    NCOL(tS)
44    NROW(tS)
45    ncol(tS)
46    nrow(tS)
47    dimnames(tS)
48    colnames(tS)
49    rownames(tS)
50    # colnames<-
51    # rownames<-
52    is.array(tS)
53
54    # Univariate Case:
55    tS = timeSeries()[, 1]
56    dim(tS)
57    NCOL(tS)
58    NROW(tS)
59    ncol(tS)
60    nrow(tS)
61    dimnames(tS)
62    colnames(tS)
63    rownames(tS)
64    # colnames<-
65    # rownames<-
66    is.array(tS)
67
68    # Multivariate Case:
69    tS = timeSeries()
70    dim(tS)
71    NCOL(tS)
72    NROW(tS)
73    ncol(tS)
74    nrow(tS)
75    dimnames(tS)
76    colnames(tS)
77    rownames(tS)
78    # colnames<-
79    # rownames<-
80    is.array(tS)
81}
82
83
84################################################################################
85
86