R/npffAH.R

Defines functions npffAH

npffAH <- function(A,H,P){
  
  K <- gram2edm(P %*% t(P))
  Sol <- sum((H * (A - K))^2)
  
  return(Sol)
  
}
rwoldford/edmcr documentation built on Sept. 11, 2021, 5:11 p.m.