R/BinaryVectorCheck.R

BinaryVectorCheck <- function (x)
{
  for (i in 1:length(x)) if (!((x[i] == 0) | (x[i] == 1)))
    return(FALSE)
  return(TRUE)
}

Try the PERMANOVA package in your browser

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

PERMANOVA documentation built on Sept. 6, 2021, 5:07 p.m.