R/SRM_COMPUTE_MU_Y.R

In alexanderrobitzsch/srm: Structural Equation Modeling for the Social Relations Model

## File Name: SRM_COMPUTE_MU_Y.R
## File Version: 0.03

SRM_COMPUTE_MU_Y <- function(parm_list, y, Xs, group)
{
    parm_list_gg <- parm_list[[group]][[1]]
    BETA <- parm_list_gg$BETA

    # include structure for latent means
    muy <- as.vector(Xs %*% BETA)
    ey <- y - muy

    #-- output
    res <- list(muy=muy, ey=ey)
    return(res)
}