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
|
##' @export
`manifest` <-
function(x,...) UseMethod("manifest")
##' @export
`manifest.lvm` <-
function(x,...) {
if (length(vars(x))>0)
setdiff(vars(x),latent(x))
else
NULL
}
##' @export
`manifest.lvmfit` <-
function(x,...) {
manifest(Model(x))
}
##' @export
manifest.list <- function(x,...) {
manifestlist <- c()
for (i in seq_along(x)) {
manifestlist <- c(manifestlist, manifest(x[[i]]))
}
## endolist <- unique(manifestlist)
return(manifestlist)
}
##' @export
`manifest.multigroup` <-
function(x,...) {
manifest(Model(x))
}
|
