R/graph2lvm.R

In lava: Latent Variable Models

##' @export
`graph2lvm` <-
function(g, debug=FALSE, silent=TRUE) {
  res <- lvm(graph::nodes(g), debug=debug,silent=silent)
  M <- t(as(g, Class="matrix"))
  for (i in 1:nrow(M)) {
    if (any(M[,i]==1)) {      
      res <- regression(res, rownames(M)[M[,i]==1], rownames(M)[i], silent=silent)
    }
  }
  res
}