proj_matrix <- function(VarRubin.matrix, metadata) {
return(as.numeric(lapply(VarRubin.matrix, function(aaa){
DesMat = DAPAR::make.design(metadata)
max(diag(aaa)%*%t(DesMat)%*%DesMat)
})))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.