R/is.binary.R
In WinRatio: Win Ratio for Prioritized Outcomes and 95% Confidence Interval

is.binary <- function(x){
  x <- stats::na.omit(x)
  if (is.numeric(x)){
    all(x %in% c(0, 1))
  } else {FALSE}
}

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

WinRatio documentation built on Nov. 23, 2020, 9:06 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the WinRatio package in your browser