rms 的列线图（）在函数中不起作用答案

【问题标题】：nomogram() of rms not working in a functionrms 的列线图（）在函数中不起作用
【发布时间】：2015-06-04 04:06:20
【问题描述】：

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

> 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=)

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

【问题讨论】：

我需要将 dd = datadist(mydf) 和 options(datadist='dd') 保留在全局环境中。然后就可以了。
第二个问题是不合理的，因为我正在使用 as.formula 将字符串转换为函数中的公式。
@42- 请善待
@JesseKnight：请解释您的评论。
另一个用户“42-”之前在这里发表过评论，有点粗鲁。我不记得是什么了，但他现在已经删除了。如果你愿意，我也会在这里删除我的 cmets。

标签： r rms

【解决方案1】：

使用 dd

【讨论】：