1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
##' Extract model
##'
##' Extract or replace model object
##'
##'
##' @aliases Model Model<-
##' @usage
##'
##' Model(x, ...)
##'
##' Model(x, ...) <- value
##'
##' @param x Fitted model
##' @param value New model object (e.g. \code{lvm} or \code{multigroup})
##' @param \dots Additional arguments to be passed to the low level functions
##' @return Returns a model object (e.g. \code{lvm} or \code{multigroup})
##' @author Klaus K. Holst
##' @seealso \code{\link{Graph}}
##' @keywords models
##' @examples
##'
##' m <- lvm(y~x)
##' e <- estimate(m, sim(m,100))
##' Model(e)
##'
##' @export
`Model` <- function(x,...) UseMethod("Model")
##' @export
`Model.default` <- function(x,...) x
##' @export
`Model.lvm` <- function(x,...) x
##' @export
`Model.lvmfit` <- function(x,...) x$model
##' @export
`Model.multigroup` <- function(x,...) x$lvm
##' @export
`Model.multigroupfit` <- function(x,...) x$model
##' @export
"Model<-" <- function(x,...,value) UseMethod("Model<-")
##' @export
"Model<-.lvm" <- function(x,...,value) { x <- value; return(x) }
##' @export
"Model<-.lvmfit" <- function(x,...,value) { x$model <- value; return(x) }
##' @export
"Model<-.multigroup" <- function(x,...,value) { x$lvm <- value; return(x) }
##' @export
"Model<-.multigroupfit" <- function(x,...,value) { x$model <- value; return(x) }
|
