# Find nodes with infinite values in the imports_mcmodule
which_mcnode_inf(imports_mcmodule)
# Create a test mcmodule with Inf values
test_mcnode_inf <- mcdata(c(0.1, Inf, 0.3), type = "0", nvariates = 3)
test_mcnode_clean <- mcdata(c(0.1, 0.2, 0.3), type = "0", nvariates = 3)
test_mcmodule <- list(
node_list = list(
node_a = list(mcnode = test_mcnode_inf),
node_b = list(mcnode = test_mcnode_clean)
)
)
which_mcnode_inf(test_mcmodule)
Run the code above in your browser using DataLab