Cómo calcular $\int_{S}^{T} \Phi \Big(\frac{l_0-f(t)}{\sigma}\Big)g(t)dt$ ?

Question

¿Cómo puedo calcular la integral? $\int_{S}^{T} \Phi \Big(\frac{l_0-f(t)}{\sigma}\Big)g(t)dt$ donde $f(t)= \mu_0+\mu_1 e^{-\gamma (7+logt)^\delta}$ y $g(t)= \frac{1}{(t+h)^k}$ .

Aquí $\Phi \Big(\frac{l_0-f(t)}{\sigma}\Big)= \frac{1}{\sigma \sqrt{2 \pi} } \int_{-\infty}^{l_0} e^{\frac{(m-f(t))^2}{2 \sigma^2}} dm$ y $l_0,\mu_0,\mu_1,\gamma,\delta,h,k$ son constantes.

Answer 1

Utilice el integrate() en R.

I = function(mu0, mu1, L0, gamma, d, h, k, sigma, S, T) 
{
  f = function(t) mu0 + mu1*exp(-gamma*(7 + log(t))^d) 
  g = function(t) 1/( (t+h)^k ) 
  z = function(t) dnorm( (L0-f(t))/sigma ) * g(t) 
  return( integrate(z, S, T)$val ) 
}

I(0,1,0,1,1,0,1,1,1,2)

Asegúrese de que los argumentos dan lugar a valores definidos de la función para el integrando (por ejemplo, S $\geq$ 0).