tests/testthat/test-dim.R

# HEADER ####################################################
# This is file spam/tests/testthat/test-dim.R.              #
# It is part of the R package spam,                         #
#  --> https://CRAN.R-project.org/package=spam              #
#  --> https://CRAN.R-project.org/package=spam64            #
#  --> https://git.math.uzh.ch/reinhard.furrer/spam         #
# by Reinhard Furrer [aut, cre], Florian Gerber [aut],      #
#    Roman Flury [aut], Daniel Gerber [ctb],                #
#    Kaspar Moesinger [ctb]                                 #
# HEADER END ################################################

rm(list = ls())
source("helper.R")

## library("testthat")
## library("spam64", lib.loc = LIB.LOC)
## library("spam", lib.loc = "../../../lib/")


context("test-dim.R")


# simple tests:
########################################################################


# construct matrices:
n <- 10
m <- 15

set.seed(14)
tt <- matrix(rnorm(m*n),n,m)
tt[tt<0] <- 0

ss <- as.spam(tt)



test_that("dim", {
    spamtest_eq(ss,tt)
    
    dim(ss) <- c(m,n)
    dim(tt) <- c(m,n)
    spamtest_eq(ss,tt)
    
    dim(ss) <- c(m*n,1)
    dim(tt) <- c(m*n,1)
    spamtest_eq(ss,tt)
    
    dim(ss) <- c(1, m*n)
    dim(tt) <- c(1, m*n)
    spamtest_eq(ss,tt)
    
    expect_error( dim(ss) <- c(-1, -m*n),
                 "Indices need to be positive")
    expect_error( dim(ss) <- c(1, m, n),
                 "dims should be of length 1 or 2")
})

Try the spam package in your browser

Any scripts or data that you put into this service are public.

spam documentation built on Oct. 23, 2023, 5:07 p.m.