tests/testthat/test_myALS_SVD.R

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

out <- myALS_SVD(X, k=10)

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