tests/testthat/test_mySVD.R

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

out <- mySVD(X, k=10)

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