R/formula.R

In lavaSearch2: Tools for Model Specification in the Latent Variable Framework

### formula.R --- 
##----------------------------------------------------------------------
## Author: Brice Ozenne
## Created: nov 25 2019 (09:39) 
## Version: 
## Last-Updated: Jan 11 2022 (16:43) 
##           By: Brice Ozenne
##     Update #: 14
##----------------------------------------------------------------------
## 
### Commentary: 
## 
### Change Log:
##----------------------------------------------------------------------
## 
### Code:

formula.varStruct <- function(x, ...){
    return(attr(x, "formula"))
}
formula.corStruct <- function(x, ...){
    return(attr(x, "formula"))
}
formula.reStruct <- function(x, ...){
    n.random <- length(x)
    group.random <- names(x)
    ls.formula <- lapply(1:n.random, function(iN){ ## iN <- names(x)[1]
        stats::as.formula(paste0(deparse(attr(x[[iN]],"formula")),"|", group.random[iN]))
    })
    return(ls.formula)
}


######################################################################
### formula.R ends here