example1 <- mood(K = 2, Levels = 3, Nruns = 10, criterion.choice = "GDP",
kappa = list(kappa.Ds = 1./3, kappa.DP = 1./3, kappa.LoF = 1./3),
control = list(tau2 = 0.1),
model_terms = list(primary.model = "first_order",
potential.terms = c("x12", "x22", "x1x2")))
# Using point exchange
Search_point <- Search(example1, algorithm = 'ptex')
Search_point
# Using coordinate exchange (the default for K>4)
Search_coord <- Search(example1)
Search_coord
Run the code above in your browser using DataLab