Functions/proj_matrix.R

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)
  })))
}
mariechion/mi4p documentation built on Oct. 3, 2024, 4:50 a.m.