nomogram() of rms not working in a function

Question

I am trying to make following function work but it is giving errors:

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

Where is the error and how can it be solved? Thanks for your help.

I needed to keep dd = datadist(mydf) and options(datadist='dd') in global environment. Then it works. — rnso, Jun 04 '15 at 04:53
The second question is not justified since I am converting string to a formula in the function using as.formula. — rnso, Jun 04 '15 at 04:59
Another user "42-" previously had a comment on here that was a bit rude. I don't remember what it was, but he's deleted it now. I will delete my comments here too if you like. — jessexknight, Feb 07 '20 at 22:42
No need. Thanks for explaining. Let this info be here for others to benefit. — rnso, Feb 08 '20 at 11:46

score 4 · Answer 1 · answered Feb 06 '20 at 06:31

4

use dd <<- datadist(mydf)

answered Feb 06 '20 at 06:31

Felix You

41
3

nomogram() of rms not working in a function

1 Answers1