R/ctrlSetup.R

In mfasiolo/synlik_release: Synthetic Likelihood methods for intractable likelihoods.

.ctrlSetup <- function(innerCtrl, outerCtrl)
{
  if(length(outerCtrl))
  {
    namOut <- names(outerCtrl)
    namIn <-  names(innerCtrl)
    if (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)
}