R devel - May 2002 - subscript problem with function qr.X (PR#1519)

R : Copyright 2002, The R Development Core Team
Version 1.4.1  (2002-01-30)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type `license()' or `licence()' for distribution details.

R is a collaborative project with many contributors.
Type `contributors()' for more information.

Type `demo()' for some demos, `help()' for on-line help, or
`help.start()' for a HTML browser interface to help.
Type `q()' to quit R.
> x <- matrix(scan(), 4,5)
1:     0.9501    0.8913    0.8214    0.9218    0.9355
6:     0.2311    0.7621    0.4447    0.7382    0.9169
11:     0.6068    0.4565    0.6154    0.1763    0.4103
16:     0.4860    0.0185    0.7919    0.4057    0.8936
21: 
Read 20 items
> QR <- qr(x)
> qr.Q(QR)
           [,1]       [,2]        [,3]         [,4]
[1,] -0.5293452  0.5626939 -0.19540556 -0.604140627
[2,] -0.4965850 -0.6566910 -0.56754804  0.007036243
[3,] -0.4576404  0.4009461 -0.05368566  0.791786145
[4,] -0.5135779 -0.3022824  0.79801236 -0.089662111
> qr.R(QR)
          [,1]       [,2]        [,3]        [,4]       [,5]
[1,] -1.794859 -1.1871191 -1.35822590 -0.85067570 -1.0476365
[2,]  0.000000  0.5457749 -0.08143716  0.24810615 -0.6170795
[3,]  0.000000  0.0000000 -0.33291700  0.14549548  0.2382673
[4,]  0.000000  0.0000000  0.00000000 -0.08925358 
0.2355010
> qr.X(QR)
Error in qr.X(QR) : subscript out of bounds
> version
         _                
platform i686-pc-linux-gnu
arch     i686             
os       linux-gnu        
system   i686, linux-gnu  
status                    
major    1                
minor    4.1              
year     2002             
month    01               
day      30               
language R                
>
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To:
r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._