Magnum 4d Prediction Formula In R