R/boa.getparms.R

"boa.getparms" <-
function(link, pnames)
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
{
   result <- NULL
   idx <- is.element(dimnames(link)[[2]], pnames)
   if(any(idx))  result <- link[, idx, drop = FALSE]

   return(result)
}

Try the boa package in your browser

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

boa documentation built on May 29, 2017, 11:57 a.m.