Nothing
##' @export
`endogenous` <-
function(x,...) UseMethod("endogenous")
##' @export
`endogenous.lvmfit` <-
function(x,...) {
endogenous(Model(x),...)
}
##' @export
`endogenous.lvm` <-
function(x,top=FALSE,latent=FALSE,...) {
observed <- manifest(x)
if (latent) observed <- vars(x)
if (top) {
M <- x$M
res <- c()
for (i in observed)
if (!any(M[i,]==1))
res <- c(res, i)
return(res)
}
exo <- exogenous(x)
return(setdiff(observed,exo))
}
##' @export
endogenous.list <- function(x,...) {
endolist <- c()
for (i in 1:length(x)) {
## exolist <- c(exolist, exogenous(x[[i]]))
endolist <- c(endolist, endogenous(x[[i]]))
}
endolist <- unique(endolist)
return(endolist)
## exolist <- unique(exolist)
## return(exolist[!(exolist%in%endolist)])
}
##' @export
`endogenous.multigroup` <-
function(x,...) {
endogenous(Model(x))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.