← Back to branch summary

~showard314/ubuntu/karmic/r-base/remove_start_comments

« back to all changes in this revision

Viewing changes to src/library/base/R/qr.R

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2008-12-20 09:26:38 UTC
  • mfrom: (1.1.28 upstream) (5.1.3 sid)
  • mto: This revision was merged to the branch mainline in revision 9.
  • Revision ID: james.westby@ubuntu.com-20081220092638-cmfdb1e4v5lp31en
Tags: 2.8.1~20081219-1
* Updated to Dec 19 release candidate of R 2.8.1 expected for Dec 22

* r-doc-pdf expected to be empty due to the tex/texinfo bug below

* debian/control: Change Build-Depends: on openjdk-6-jdk to 
  'openjdk-6-jdk [!arm !hppa]' as arm and hppa do not have one.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/library/base/R/qr.R
69
69
    if(is.complex(qr$qr)) {
70
70
        if(!is.complex(y)) y[] <- as.complex(y)
71
71
        coef <- matrix(NA_complex_, nrow = p, ncol = ny)
72
 
        coef[qr$pivot,] <- .Call("qr_coef_cmplx", qr, y, PACKAGE = "base")
 
72
        coef[qr$pivot,] <- .Call("qr_coef_cmplx", qr, y, PACKAGE = "base")[1:p,]
73
73
        return(if(im) coef else c(coef))
74
74
    }
75
75
    ## else {not complex} :