R/ProcTest.R

Defines functions ProcTest

# Internal function of MRtest
ProcTest <- function(Teste) {
  if (is.matrix(Teste) == FALSE) {
    g  <- diag(length(Teste))
    Teste <- cbind(Teste, g)
  }
  return(Teste)
}
bendeivide/MCPtests documentation built on Oct. 25, 2023, 1:46 p.m.