R/kernel.func.R

kernel.func <-
  function(X.0, X.i, H.inv){
    d <- X.0 - X.i
    return(c(exp(-0.5 * (t(d) %*% H.inv %*% d))))
  }

Try the snfa package in your browser

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

snfa documentation built on May 1, 2019, 9:16 p.m.