← Back to branch summary

~ubuntu-branches/ubuntu/trusty/r-cran-rms/trusty

« back to all changes in this revision

Viewing changes to R/gendata.s

  • Committer: Package Import Robot
  • Author(s): Dirk Eddelbuettel
  • Date: 2014-01-22 14:16:13 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20140122141613-frc51dglkjfisik0
Tags: 4.1-1-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
R/gendata.s
39
39
             paste(names(factors)[which==0],collapse=" ")))
40
40
    settings <- if(nf<length(nam)) predictrms(fit, type="adjto.data.frame")
41
41
     else list()
42
 
    settings <- oldUnclass(settings)
 
42
    settings <- unclass(settings)
43
43
    if(nf>0) for(i in 1:nf) settings[[fnam[i]]] <- factors[[i]]
44
44
    if(nf==0) return(as.data.frame(settings))
45
45
    if(expand) expand.grid(settings) else as.data.frame(settings)