请问可否提供能能做出下图中这种预测模型校准曲线的R语言代码和操作流程？