R/MatrixCompleteObj.R

Defines functions MatrixCompleteObj

MatrixCompleteObj <- function(par, lambda, A, PA, ind) {
  B <- matrix(par, nrow=nrow(PA), ncol=ncol(PA))
  svdB <- svd(B)
  
  ans <- sum((par[ind] - A)*(par[ind] - A))/2 + lambda*sum(svdB$d)
  return(-ans)
}
nchenderson/nidaarem documentation built on Feb. 19, 2020, 12:45 p.m.