R/mlnormal_proc_variance_shortcut_XY_R.R

In LAM: Some Latent Variable Models

## File Name: mlnormal_proc_variance_shortcut_XY_R.R
## File Version: 0.093


mlnormal_proc_variance_shortcut_XY_R <- function(y, X, G, freq_id)
{
    y0 <- y
    X0 <- X
    index_orig <- unlist( sapply( 1L:G, FUN=function(gg){
                        freq_id[gg, 'start_orig']:freq_id[gg, 'end_orig'] } ) )
    X <- X0[ index_orig, ]
    y <- y0[ index_orig ]
    res <- list( y=y, X=X)
    return(res)
}