Text this: Designing a catastrophe bond`s payout function in the programming language R