Credit Default Swaps with R