R/npffAH.R

Defines functions npffAH

npffAH <- function(A,H,P){
  
  K <- gram2edm(P %*% t(P))
  Sol <- sum((H * (A - K))^2)
  
  return(Sol)
  
}

Try the edmcr package in your browser

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

edmcr documentation built on Sept. 10, 2021, 5:10 p.m.