Calculate Credit Default Swap with R