如何用R语言对logistics模型得出的临床预测模型进行内部验证，具体的R语言代码是什么？