← Back to branch summary

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

« back to all changes in this revision

Viewing changes to R/uqo.R

  • 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/uqo.R
262
262
 
263
263
 
264
264
 
265
 
        sdnumat = sd(numat)
 
265
        sdnumat = apply(numat, 2, sd)
266
266
        for(lookat in 1:Rank)
267
267
            if (sdnumat[lookat]>control$MUXfactor[lookat]*control$isdlv[lookat]){
268
268
                muxer = control$isdlv[lookat] * control$MUXfactor[lookat] / 
336
336
            numat = numat %*% evnu$vector
337
337
        }
338
338
 
339
 
        sdnumat = sd(numat)
 
339
        sdnumat = apply(numat, 2, sd)
340
340
        for(lookat in 1:Rank)
341
341
            if (sdnumat[lookat]>control$MUXfactor[lookat]*control$isdlv[lookat]){
342
342
                muxer = control$isdlv[lookat] * control$MUXfactor[lookat] / 
426
426
 
427
427
    if (length(etastart)) {
428
428
        eta <- etastart
429
 
        mu <- if (length(mustart)) mustart else family@inverse(eta, extra)
 
429
        mu <- if (length(mustart)) mustart else family@linkinv(eta, extra)
430
430
    } else {
431
431
        if (length(mustart))
432
432
            mu <- mustart
756
756
 
757
757
 
758
758
setMethod("persp", "uqo", function(x, ...) 
759
 
          persp.qrrvglm(x, ...))
 
759
          perspqrrvglm(x, ...))
760
760
 
761
761
setMethod("trplot", "uqo", function(object, ...) 
762
762
          trplot.qrrvglm(object, check.ok=FALSE, ...))