R/compileJunction.R

In MNLR/downscaleR.BN: Statistical Downscaling with Bayesian Networks.

compileJunction <- function( bn.fit ){
  print("Compiling junction...")
  junction <- tryCatch(
    {
      compile(as.grain(bn.fit), propagate = TRUE)
    },
    error=function(cond) {
    message("Warning: junction could not be compiled. Exact inference deactivated.
            Original message: ")
    message(cond)
    return(NA)
    }
  )
  print(" Done.")
  return(junction)
}