R/fvg.R

fvg <- function(etaP, S = S)
  {	
  PS <- t(t(S) * etaP[-1]) + t(t(1 - S)*(1 - etaP[-1]))
  etaP[1] * apply(PS, 1, prod)
}

Try the lvm4net package in your browser

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

lvm4net documentation built on June 13, 2019, 5:03 p.m.