## File Name: mlnormal_fill_matrix_from_list.R
## File Version: 0.07
mlnormal_fill_matrix_from_list <- function( V1, V1_list,
id_list, G ){
for (gg in 1:G){
ind <- id_list[[gg]]
V1[ ind, ind ] <- V1_list[[gg]]
}
return(V1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.