Nothing
#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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.