# Example 1: Use defaults (6 fixed base models)
nodes <- initNodeList(search.space = "ivbase", phi0 = 1)
createAnts(
search.space = "ivbase",
nants = 15,
init = TRUE,
nodeslst = nodes
)
# Example 2: Custom number of fixed ants
createAnts(
search.space = "ivbase",
nants = 20,
init = TRUE,
nodeslst = nodes,
fixed = list(n = 10) # 10 fixed, mat = NULL (auto-generate)
)
# Example 3: Custom fixed models
my_models <- matrix(
c(1, -1, 0, -1, -1, -1, -1, 0, 0, 1,
2, -1, 1, 0, -1, 0, -1, 0, 0, 2,
3, -1, 1, 1, 0, 1, 0, 1, 1, 3),
nrow = 10, ncol = 3
)
rownames(my_models) <- c("no.cmpt", "eta.km", "eta.vc", "eta.vp",
"eta.vp2", "eta.q", "eta.q2", "mm", "mcorr", "rv")
createAnts(
search.space = "ivbase",
nants = 10,
init = TRUE,
nodeslst = nodes,
fixed = list(n = 3, mat = my_models)
)
Run the code above in your browser using DataLab