R/check.path.R

Defines functions check.path

Documented in check.path

check.path <-
function(p1,p2) {
  if ( !all(is.na(p1)) & !all(is.na(p2)) ) {
   for (i in 1:length(p1)) { if (p1[i] %in% p2) { return(1) } }
  }  
  return(0)
}

Try the SHIP package in your browser

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

SHIP documentation built on May 29, 2017, 11:25 a.m.