# NOT RUN {
# Inline creation by function new call.
EM <- new("EM.Control", strategy = "exhaustive",
variant = "EM", acceleration = "fixed",
tolerance = 1e-4, acceleration.multiplier = 1.0,
maximum.iterations = 1000)
EM
# Creation of EM object with setter functions.
EM <- new("EM.Control")
a.strategy(EM) <- "exhaustive"
a.variant(EM) <- "EM"
a.acceleration(EM) <- "fixed"
a.tolerance(EM) <- 1e-4
a.acceleration.multiplier(EM) <- 1.0
a.maximum.iterations(EM) <- 1000
EM
# }
Run the code above in your browser using DataLab