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