intraAMLE {AssetCorr} | R Documentation |

This estimator is based on the assumption of infinitely large portfolio size and a sufficient length of the default time series. In the asymptotic case, neither the default rate of 0 or a 1 occur. Hence one has to make an adjustment in these cases.

intraAMLE(d, n, B = 0, DB=c(0,0),JC = FALSE, Adjust = 0, CI_1,CI_2, CI_Boot,VaR=0.99, VaR_CI=0.95, ES=0.975, ES_CI=0.95, type="bca", plot=FALSE)

`d` |
a vector, containing the default time series of the sector. |

`n` |
a vector, containing the number of obligors at the beginning of the period in the sector. |

`B` |
an integer, indicating how many bootstrap repetitions should be used for the single bootstrap corrected estimate. |

`DB` |
a combined vector, indicating how many bootstrap repetitions should be used for the inner (first entry) and outer loop (second entry) to correct the bias using the double bootstrap. |

`JC` |
a logical variable, indicating if the jackknife corrected estimate should be calculated. |

`Adjust` |
a number, which should be added to a observed default rate of 0 or subtracted form a observed default rate of 1. |

`CI_1` |
a number, indicating the desired analytical confidence interval of the estimate. The interval is computed by asymptotic Cramer-Rao lower bound for the standard deviation of the estimate based on Duellmann and Gehde-Trapp (2004). Additionally the asymptotic confidence interval for the unconditional PD is computed. |

`CI_2` |
a number, indicating the desired analytical confidence interval of the estimate. The interval is computed by constructing a confidence interval for the variance, which can be transferred to the estimate based on Hoese and Huschens (2011). |

`CI_Boot` |
a number, indicating the desired confidence interval if the single bootstrap correction is specified.
By default, the interval is calculated as the bootstrap corrected and accelerated confidence interval (Bca). Furthermore, the analytical confidence intervals are provided, using the same value as |

`VaR` |
a number, indicating the desired confidence level for the asymptotic Value-at-Risk. |

`VaR_CI` |
a number, indicating the desired confidence interval for the asymptotic Value-at-Risk, derived by the delta method. |

`ES` |
a number, indicating the desired confidence level for the asymptotic Expected Shortfall. |

`ES_CI` |
a number, indicating the desired confidence interval for the asymptotic Expected Shortfall, derived by the delta method. |

`type` |
a string, indicating the desired method to calculate the confidence intervals. For more details see |

`plot` |
a logical variable, indicating whether a plot of the single bootstrap density should be generated. |

This estimator is based on the asymptotic assumptions of the Vasicek model, especially the assumption of an infinite large portfolio. If a 0 or 1 occurs at least once in the default rate time series, the estimator can not converge. Therefore, an adjustment (`Adjust`

) can be made. Nevertheless, Meyer (2009) argued that the adjustment can harm the estimation efficiency.

Additionally two different asymptotic confidence intervals are provided. Bootstrap and jackknife corrections are also possible. If `DB`

is specified, the single bootstrap corrected estimate will be calculated using the bootstrap values of the outer loop (`oValues`

).

The returned value is a list, containing the following components (depending on the selected arguments):

`PD` |
Estimate of the unconditional PD based on Duellmann and Gehde-Trapp (2004) |

`PD_CI_1` |
[Two-sided asymptotic confidence interval for the unconditional PD based on Duellmann and Gehde-Trapp (2004) |

`Original` |
Estimate of the original method |

`Bootstrap` |
Bootstrap corrected estimate |

`Double_Bootstrap` |
Double bootstrap corrected estimate |

`Jackknife` |
Jackknife corrected estimate |

`CI_1` |
Selected two-sided asymptotic confidence interval based on Duellmann and Gehde-Trapp (2004) |

`CI_2` |
Selected two-sided asymptotic confidence interval based on Hoese and Huschens (2011) |

`CI_Boot` |
Selected two-sided bootstrap confidence interval |

`VaR` |
Asymptotic Value-at-Risk |

`VaR_CI` |
Confidence interval for the asymptotic Value-at-Risk |

`ES` |
Asymptotic Expected Shortfall |

`ES_CI` |
Confidence interval for the asymptotic Expected Shortfall |

`bValues` |
Estimates from the single bootstrap resampling |

`iValues` |
Estimates from the double bootstrap resampling- inner loop |

`oValues` |
Estimates from the double bootstrap resampling- outer loop |

Chang J, Hall P (2015).
“Double-bootstrap methods that use a single double-bootstrap simulation.”
*Biometrika*, **102**(1), 203–214.

Duellmann K, Gehde-Trapp M (2004).
“Systematic risk in recovery rates: an empirical analysis of US corporate credit exposures.”
*Bundesbank Series 2, Discussion Paper*.
Available at SSRN: http://hdl.handle.net/10419/19729. Accessed: 02.11.2017.

Efron B, Tibshirani RJ (1994).
*An introduction to the bootstrap*.
CRC press.

Hoese S, Huschens S (2011).
“Confidence intervals for asset correlations in the asymptotic single risk factor model.”
In *Operations Research Proceedings 2010*, 111–116.
Springer.

Meyer C (2009).
“Estimation of intra-sector asset correlations.”
*The Journal of Risk Model Validation*, **3**(3), 47–79.

Pfeuffer M, Nagl M, Fischer M, Roesch D (2020).
“Parameter Estimation and Bias Correction in the Vasicek Credit Portfolio Model.”
*Journal of Risk*, **22number**.

`intraAMM`

, `intraFMM`

, `intraJDP2`

,
`intraMLE`

, `intraJDP1`

, `intraCMM`

,
`intraMode`

,`intraBeta`

set.seed(10) d=defaultTimeseries(100,0.01,10,0.01) n=rep(100,10) #Sensitivity to the adjustment intraAMLE(d,n,Adjust=0.001) intraAMLE(d,n,Adjust=0.0001) #Estimation with confidence intervals- I IntraCorr=intraAMLE(d,n, Adjust=0.001, CI_1=0.95 ) #Estimation with confidence intervals- II IntraCorr=intraAMLE(d,n, Adjust=0.001, CI_2=0.95 ) #Jackknife correction IntraCorr=intraAMLE(d,n,Adjust=0.001, JC=TRUE) #Bootstrap correction with bootstrap confidence intervals IntraCorr=intraAMLE(d,n, Adjust=0.001, B=1000, CI_Boot=0.95 ) #Bootstrap correction with bootstrap confidence intervals and plot IntraCorr=intraAMLE(d,n, B=1000, Adjust=0.001, CI_Boot=0.95, plot=TRUE ) #Double Bootstrap correction with 10 repetitions in the inner loop and 50 in the outer loop IntraCorr=intraAMLE(d,n,Adjust=0.001, DB=c(10,50))

[Package *AssetCorr* version 1.0.4 Index]