# roxygen generated flag
options(R_CHECK_RUNNING_EXAMPLES_=TRUE)
x <- rnmf(3, 100, 20)
x
# transpose
y <- t(x)
y
# factors are swapped-transposed
stopifnot( identical(basis(y), t(coef(x))) )
stopifnot( identical(coef(y), t(basis(x))) )
Run the code above in your browser using DataLab