creditr (version 0.6.1)

rec_risk_01: Calculate Recovery Rate Changes

Description

rec_risk_01 calculates the amount of change in upfront when there is a 1

Usage

rec_risk_01(x, date.var = "date", currency.var = "currency", maturity.var = "maturity", tenor.var = "tenor", spread.var = "spread", coupon.var = "coupon", recovery.var = "recovery", notional.var = "notional", recovery = 0.4, notional = 1e+07)

Arguments

x

data frame, contains all the relevant columns.

date.var

character, column in x containing date variable.

currency.var

character, column in x containing currency.

maturity.var

character, column in x containing maturity date.

tenor.var

character, column in x containing tenors.

spread.var

character, column in x containing spread in basis points.

coupon.var

character, column in x containing coupon rates in basis points. It specifies the payment amount from the protection buyer to the seller on an annual basis.

recovery.var

character, column in x containing recovery rates. ISDA model standard recovery rate asscumption is 0.4.

notional.var

character, column in x containing the amount of the underlying asset on which the payments are based.

recovery

numeric, the recovery rate for all pricing if there isn't a recovery.var

notional

numeric, the notional amount for all pricing if there isn't a notional.var

Value

a vector containing the change in upfront when there is a 1 percent increase in recovery rate, for each corresponding CDS contract.

Examples

x <- data.frame(date = c(as.Date("2014-04-22"), as.Date("2014-04-22")),
                currency = c("USD", "EUR"),
                tenor = c(5, 5),
                spread = c(120, 110),
                coupon = c(100, 100),
                recovery = c(0.4, 0.4),
                notional = c(10000000, 10000000),
                stringsAsFactors = FALSE)
rec_risk_01(x)