## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.