R/sumas.R

In msanavarro/bayesiana:

suma1 <- function(x) {
  # suma1 Devuelve x + 1
  # Insumos:
  #   x : numero al que se le quiere sumar 1
  # Resultado:
  #   y : x + 1
  # Manuel Sarmiento Navarro
  # 27 de marzo de 2018
  y <- x + 1
  return(y)
}

suma2 <- function(x) {
  # suma2 Devuelve x + 2
  # Insumos:
  #   x : numero al que se le quiere sumar 2
  # Resultado:
  #   y : x + 2
  # Manuel Sarmiento Navarro
  # 27 de marzo de 2018
  y <- x + 2
  return(y)
}