Nothing
## File Name: mlnormal_proc_variance_shortcut_XY_R.R
## File Version: 0.08
mlnormal_proc_variance_shortcut_XY_R <- function(y, X, G, freq_id){
y0 <- y
X0 <- X
index_orig <- unlist( sapply( 1: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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.