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.colStats = 22function() 23{ 24 # RUnit Test: 25 26 # Signal Series: 27 tS = dummySeries(format = "counts") 28 tS 29 colStats(tS, mean) 30 colSums(tS) 31 colMeans(tS) 32 colSds(tS) 33 colVars(tS) 34 colSkewness(tS) 35 colKurtosis(tS) 36 colMaxs(tS) 37 colMins(tS) 38 colProds(tS) 39 colQuantiles(tS) 40 41 # timDate Series: 42 tS = dummySeries() 43 tS 44 colStats(tS, mean) 45 colSums(tS) 46 colMeans(tS) 47 colSds(tS) 48 colVars(tS) 49 colSkewness(tS) 50 colKurtosis(tS) 51 colMaxs(tS) 52 colMins(tS) 53 colProds(tS) 54 colQuantiles(tS) 55} 56 57 58################################################################################ 59 60