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