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/midrangeMCP documentation built on June 2, 2021, 4:06 a.m.