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)
}

Try the GRaF package in your browser

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

GRaF documentation built on May 29, 2017, 9:50 a.m.