# Inline creation by new call.
EM <- new("EM.Control", strategy = "exhaustive",
variant = "EM", acceleration = "fixed",
tolerance = 1e-4, acceleration.multiplier = 1.0,
maximum.iterations = 1000, K = 0)
EM
# Creation of EM object with setter method.
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
a.K(EM) <- 256
EM
Run the code above in your browser using DataLab