attach(data)
b1<-data.frame(trueage,a1,BMI,FI2)
b1$a1<- as.factor(b1$a1)
dd<-datadist(b1) #为后续程序设定数据环境
options(datadist='dd') #为后续程序设定数据环境
fit<-lrm(FI2~rcs(BMI,3)+trueage+a1, data = b1)
an<- anova(fit)
plot(Predict(fit,BMI,fun=exp), anova = an, pval=t)

按照网上的教程代码来的，但是跑出的曲线图中出现这个错误，是什么原因？，求大神指教，谢谢！