Extract or replace model object

Model(x, ...)

Model(x, ...) <- value

Arguments

x

Fitted model

...

Additional arguments to be passed to the low level functions

value

New model object (e.g. lvm or multigroup)

Value

Returns a model object (e.g. lvm or multigroup)

See also

Author

Klaus K. Holst

Examples

m <- lvm(y~x) e <- estimate(m, sim(m,100)) Model(e)
#> Latent Variable Model #> #> y ~ x gaussian #> #> Exogenous variables: #> x gaussian #>