R/weight.Only.N.R

`weight.Only.N` <-
function(model.List, n){
  temp <- sapply(model.List, num.Terms)
  ifelse(temp==n, 1, 0)
}

Try the CombMSC package in your browser

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

CombMSC documentation built on May 2, 2019, 2:32 p.m.