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)