Create Prediction Metrics.R