tests/xpose.R

In wrathematics/band: Banded Matrices

library(band)

x <- matrix(1:100, 10)

### Degenerate cases
test <- tryCatch(xpose(as.banded(x, 0, 0)), error=identity)
stopifnot(inherits(test, "simpleError"))

test <- tryCatch(xpose(as.symmetric(x)), error=identity)
stopifnot(inherits(test, "simpleError"))



### real work
band <- as.banded(x, 2, 1)
test <- as.matrix(xpose(band))
truth <- xpose(as.matrix(band))
stopifnot(all.equal(test, truth))

band <- as.banded(x, 1, 2)
test <- as.matrix(xpose(band))
truth <- xpose(as.matrix(band))
stopifnot(all.equal(test, truth))

band <- as.banded(x, 2, 2)
test <- as.matrix(xpose(band))
truth <- xpose(as.matrix(band))
stopifnot(all.equal(test, truth))