← Back to branch summary

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

« back to all changes in this revision

Viewing changes to R/rrvglm.fit.q

  • Committer: Package Import Robot
  • Author(s): Chris Lawrence
  • Date: 2011-11-04 13:13:06 UTC
  • mfrom: (1.2.9)
  • mto: This revision was merged to the branch mainline in revision 14.
  • Revision ID: package-import@ubuntu.com-20111104131306-w9fd83i51rw60gxf
Tags: upstream-0.8-4
Import upstream version 0.8-4

Show diffs side-by-side

added added

removed removed

Lines of Context:
R/rrvglm.fit.q
43
43
 
44
44
            eta <- fv + offset
45
45
 
46
 
            mu <- family@inverse(eta, extra)
 
46
            mu <- family@linkinv(eta, extra)
47
47
 
48
48
            if (length(family@middle2))
49
49
                eval(family@middle2)
102
102
 
103
103
                        eta <- fv + offset
104
104
 
105
 
                        mu <- family@inverse(eta, extra)
 
105
                        mu <- family@linkinv(eta, extra)
106
106
 
107
107
                        if (length(family@middle2))
108
108
                            eval(family@middle2)
206
206
    if (length(etastart)) {
207
207
        eta <- etastart
208
208
        mu <- if (length(mustart)) mustart else
209
 
              if (length(body(slot(family, "inverse"))))
210
 
                slot(family, "inverse")(eta, extra) else
 
209
              if (length(body(slot(family, "linkinv"))))
 
210
                slot(family, "linkinv")(eta, extra) else
211
211
                warning("argument 'etastart' assigned a value ",
212
 
                        "but there is no 'inverse' slot to use it")
 
212
                        "but there is no 'linkinv' slot to use it")
213
213
    }
214
214
 
215
215
    if (length(mustart)) {
216
216
        mu <- mustart
217
 
        if (length(body(slot(family, "link")))) {
218
 
          eta <- slot(family, "link")(mu, extra)
 
217
        if (length(body(slot(family, "linkfun")))) {
 
218
          eta <- slot(family, "linkfun")(mu, extra)
219
219
        } else {
220
220
          warning("argument 'mustart' assigned a value ",
221
221
                  "but there is no 'link' slot to use it")
353
353
        eta <- if (M > 1) matrix(eta, ncol=M, byrow = TRUE) else c(eta) 
354
354
 
355
355
 
356
 
        mu <- family@inverse(eta, extra)
 
356
        mu <- family@linkinv(eta, extra)
357
357
    }
358
358
 
359
359
    if (criterion != "coefficients") {