R/weightNL.R

"weightNL" <- function (temp, model, n) 
{
  if (model@clpType == "x2")
    temp <- temp * model@weightM[, n]
  if (model@clpType == "x") 
    temp <- temp * model@weightM[n, ]
  temp
}

Try the TIMP package in your browser

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

TIMP documentation built on May 29, 2017, 1:21 p.m.