R/restas.R

In msanavarro/bayesiana:

resta1 <- function(x) {
  # resta1 Devuelve x - 1
  # Insumos:
  #   x : numero al que se le quiere restar 1
  # Resultado:
  #   y : x - 1
  # Manuel Sarmiento Navarro
  # 4 de abril de 2018
  y <- x - 1
  return(y)
}

resta2 <- function(x) {
  # resta2 Devuelve x - 2
  # Insumos:
  #   x : numero al que se le quiere resta 2
  # Resultado:
  #   y : x - 2
  # Manuel Sarmiento Navarro
  # 4 de abril de 2018
  y <- x - 2
  return(y)
}

restayAx <- function(x, y) {
  # restayAx Devuelve x - y
  # Insumos:
  #   x : numero al que se le quiere restar y
  #   x : numero que se le quiere restar a x
  # Resultado:
  #   z : x - y
  # Manuel Sarmiento Navarro
  # 12 de junio de 2018
  z <- x - y
  return(z)
}