# NOT RUN {
## Create a dataset
# Continuous variables
x <- rnorm(100)
y <- rnorm(100)
# Discrete variable
z <- sample(letters[1:2],size = 100, replace = TRUE)
data <- data.frame(C1 = x, C2 = y, D1 = z, stringsAsFactors = FALSE)
## Get DAG
dag <- LearningHC(data)
## Learn BN
bn <- MoTBFs_Learning(dag, data, POTENTIAL_TYPE = "MTE")
## Check wheter a node is discrete or not
# Using its name
is.discrete("D1", bn)
# Using its index position
is.discrete(3, bn)
# }
Run the code above in your browser using DataLab