rm(list=ls())##清除之前数据 library(rms) ###加载rms包# library(foreign) library(...