R/fixIntermediate.R

In MNLR/BNdownscaleR: Statistical Downscaling with Bayesian Networks.

fixIntermediate <- function(names.distribution, structure.learning.args.list, whitelist){
  all.nodes <- as.vector(unlist(names.distribution))
  return(add.toBlacklist( all.nodes, structure.learning.args.list)) # whitelist has precedence over the blacklist
}