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)
}

Try the MCPtests package in your browser

Any scripts or data that you put into this service are public.

MCPtests documentation built on Dec. 17, 2020, 5:09 p.m.