R/psiline.R

Defines functions psiline

psiline <-
function(s, adiff, a, K, y, d0, mn = 0, wt) {
  a <- a + s * as.vector(adiff)
  f <- K %*% a + mn
  psi(a, f, mn, y, d0, wt)
}
goldingn/GRaF documentation built on May 14, 2017, 1:58 p.m.