R/npffAH.R

Defines functions npffAH

npffAH <- function(A,H,P){
  
  K <- gram2edm(P %*% t(P))
  Sol <- sum((H * (A - K))^2)
  
  return(Sol)
  
}
great-northern-diver/edmcr documentation built on Dec. 20, 2021, 12:52 p.m.