test.R

In UMDimReduction/GenSoftImpute: Generalized Soft Impute for Matrix Completion

library(filling)
tol <- 0.0001

# transform 5% of entries into missing
A <- aux.rndmissing(lena128, x = 0.05)

# apply the method with 3 lambda values
fill <- fill.SoftImpute(A, lambdas = c(500, 100, 50), tol = tol)$X
fill2 <- soft_impute(A, lambdas = c(500, 100, 50), tol = tol)
fill3 <- generalized_soft_impute(A, lambdas = c(500, 100, 50), tol = tol)

all.equal(fill, fill2)
all.equal(fill2, fill3)

bench::mark(
  "filling" = fill.SoftImpute(A, lambdas = c(500, 100, 50))$X,
  "our" = soft_impute(A, lambdas = c(500, 100, 50)),
  "our_bis" = generalized_soft_impute(A, lambdas = c(500, 100, 50))
)