check algorithms
# Clean environment
closeAllConnections()
rm(list=ls())
# Set enviroment
setwd("~/your working directory")
# Load packages
library(bnpa)
# Set what BN learning algorithms will be used
bn.learn.algorithms <- c("hc", "mmhc")
# Check these algorithms
check.algorithms(bn.learn.algorithms)
# Changing for not allowed algorithms
bn.learn.algorithms <- c("hc", "mcmc")
# Check these algorithms
check.algorithms(bn.learn.algorithms)