Last chance! 50% off unlimited learning
Sale ends in
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