R/modulo.r

modulo <- function(x,y){
  
  mod <- x%%y
  
  if(mod == 0){mod1 <- y}
  if(mod != 0){mod1 <- mod}
  
  mod1
}
codymarquart/LSAfun documentation built on May 13, 2019, 8:47 p.m.