R/interaction_compare.R

interaction_compare <-
function(a,b){
  
  
  if(a>0 && b>0){
    return(TRUE)
  }
  else
    if(a==0 && b==0){
      return(TRUE)
    }
  else
    if(a<0 && b<0){
      return(TRUE)
    }
  else {return (FALSE)}
}
lkshrsch/gLVInterNetworks documentation built on May 21, 2019, 7:33 a.m.