1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
###
### $Id: flipud.R 22 2022-05-30 18:03:47Z proebuck $
###
##-----------------------------------------------------------------------------
test.flipud <- function(input, expected) {
output <- do.call(getFromNamespace("flipud", "matlab"), input)
identical(output, expected)
}
X.mat <- matrix(1:6, 3, 2)
flipud.expected.X.mat <- matrix(c(3:1, 6:4), 3, 2)
test.flipud(list(X.mat), flipud.expected.X.mat)
X.vec <- seq(1, 9, by = 2)
flipud.expected.X.vec <- seq(9, 1, by = -2)
test.flipud(list(X.vec), flipud.expected.X.vec)
## Since R does not really have concept of row/column vectors
## identical(test.fliplr(X.vec, flipud.expected.X.vec),
## test.flipud(X.vec, flipud.expected.X.vec))
|
