# script_laplace
# Autor
# 02/05/2020
# Aproximação de Laplace para cálculo de integral
rm(list = ls())

# função com argumento lambda
Il <- function(lambda){
  # comprimento do vetor lambda
  k <- length(lambda)
  # vetor para guardar os valores da aproximação
  int <- rep(0,k)
  # aproximação de Laplace
  for(i in 1:k){
    int[i] <- sqrt(pi/lambda[i])
  }
  # data-frame
  out <- data.frame(lambda=lambda,aproximacao=int)
  # saída da função
  return(out)
}

# valores de lambda e as respectivas aproximações de Laplace
Il(seq(1:5))