自己看着网上写的一段代码，代码如下：
library(foreign)
library(Hmisc)
bc <- read.spss("D:/demo2.sav",use.value.labels=T, to.data.frame=F)
library(rms)
dd <- datadist(bc)
options(datadist="dd")
f <- lrm(heart~age+sex+blood+tc+tp+crp+il6+tnfa)#heart代表心脏事件，包括心肌梗死和非心肌梗死两个，其他都是参数
nom <- nomogram(f, fun=plogis,
fun.at=c(0.95, 0.9, 0.85, 0.8, 0.75, 0.7, 0.6, 0.5),
lp=F, funlabel="Risk")
plot(nom)

运行后显示：
Error in sort.int(x, na.last = na.last, decreasing = decreasing, ...) :
  'x'必需为基元

到底哪里错误了？