R/I_ctrlSetup.R

Defines functions .ctrlSetup

.ctrlSetup <- function(innerCtrl, outerCtrl, verbose = TRUE)
{
  if(length(outerCtrl))
  {
    namOut <- names(outerCtrl)
    namIn <-  names(innerCtrl)
    
    if (verbose && length(noNms <- namOut[! namOut %in% namIn])) {
      
      warning("unknown names in control list: ", paste(noNms, collapse = ", "), ". They will not be used")
      
    }
    
    if(length(outerCtrl)) innerCtrl[namOut] <- outerCtrl
  }
  
  return(innerCtrl)
}

Try the qgam package in your browser

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

qgam documentation built on Nov. 23, 2021, 1:07 a.m.