tests/testthat/test_myNMF.R

X <- nnTensor::toyModel("NMF")

out1 <- myNMF(X, k=10)

expect_equivalent(dim(out1), c(100, 10))
rikenbit/mwTensor documentation built on July 21, 2023, 11:41 a.m.