列线图(nomogram)的R语言实现过程中，有一步总是报错

参考大神vizzo的“列线图(nomogram)的R语言实现”帖子时，可以实现例子里的数据分析，但用自己数据时，总是在第六部：建立nomogram时报错，提示

Error in approx(fu[s], xseq[s], fat, ties = mean) : 

need at least two non-NA values to interpolate

有没有大神解救一下，谢谢

大神原贴：预测模型连载3：列线图(nomogram)的R语言实现