library(DTSEA)
# Load the data
data("random_graph", package = "DTSEA")
# Compute the separation metric
separation <- separation(
graph = random_graph,
set_a = c("4", "6", "8", "13"),
set_b = c("8", "9", "10", "15", "18")
)
cat(separation, "\n")
Run the code above in your browser using DataLab