Porting Meucci's Code from Matlab to R for the Double Decay example from the paper Historical Scenarios with Fully Flexible Probabilities