Merton {CreditRisk}R Documentation

Merton's model


Merton calculates the survival probability Q(τ > T) for each maturity according to the structural Merton's model.


Merton(L, V0, sigma, r, t)



debt face value at maturity t = T; if the value of the firm V_T is below the debt face value to be paid in T the company default has occurred (it is a constant value).


firm value at time t = 0 (it is a constant value).


volatility (constant for all t).


risk-free rate (constant for all t).


a vector of debt maturity structure. The last value of this vector rapresents the debt maturity T.


In Merton's model the default event can occur only at debt maturity T and not before. In this model the debt face value L represents the constant safety level. In this model the firm value is the sum of the firm equity value St and ad the firm debt value Dt. The debt value at time t < T is calculated by the formula:

D_t = L * \exp^{- r * (T - t)} - Put(t, T; V_t, L)

The equity value can be derived as a difference between the firm value and the debt:

S_t = V_t - D_t = V_t - L * \exp^{- r * (T - t)} + Put(t, T; V_t, L) = Call(t, T; V_t, L)

(by the put-call parity) so that in the Merton's model the equity can be interpreted as a Call option on the value of the firm.


Merton returns an object of class data.frame with:


Damiano Brigo, Massimo Morini, Andrea Pallavicini (2013) Counterparty Credit Risk, Collateral and Funding. With Pricing Cases for All Asset Classes


mod <- Merton(L = 10, V0 = 20, sigma = 0.2, r = 0.005,
              t = c(0.50, 1.00, 2.00, 3.25, 5.00, 10.00, 15.00, 20.00))

plot(c(0.50, 1.00, 2.00, 3.25, 5.00, 10.00, 15.00, 20.00), mod$Surv,
     main = 'Survival Probability for different Maturity \n (Merton model)',
     xlab = 'Maturity', ylab = 'Survival Probability', type = 'b')

[Package CreditRisk version 0.1.3 Index]