rms 的nomogram() 在函数中不起作用

Question

我正在尝试使以下功能正常工作，但出现错误：

> mynomogram
function(sfstr, mydf){
        sf = as.formula(sfstr)
        library(rms)
        mod = ols(sf, mydf)
        dd = datadist(mydf)
        options(datadist='dd')
        plot(nomogram(mod))
}
> 
> mynomogram('mpg~disp+hp+cyl', mtcars)
Error in value.chk(at, i, NA, -nint, Limval, type.range = "full") : 
  variable disp does not have limits defined by datadist
> 
> mynomogram('mpg~disp+hp+cyl', mtcars)
Error in Design(X) : dataset dd not found for options(datadist=)

错误在哪里，如何解决？ 谢谢你的帮助。

Answer 1

使用 dd <<- datadist(mydf)