R/ForbNorm.R

Defines functions ForbNorm

#pracma::bsxfun
#pracma::repmat
ForbNorm <- function(U_est, U){
  ind <- t(sign(diag(crossprod(U_est,U))))
  U_est <- pracma::bsxfun("*", U_est, pracma::repmat(ind,nrow(U_est),1))

  loss <- norm(U_est - U, type = "F")
  return (loss)
}

Try the SuperPCA package in your browser

Any scripts or data that you put into this service are public.

SuperPCA documentation built on July 26, 2021, 5:06 p.m.