R devel - Mar 2016 - reg-tests-1a fails with r70391

Hi,

This may be a `transitional' bug but I am reporting a make check
fail with R-devel r70391 in reg-tests-1a.Rout. The tail of
reg-tests-1a.Rout.fail is
> ## prcomp(tol=1e-6)
> x <- matrix(runif(30),ncol=10)
> s <- prcomp(x, tol=1e-6)
> stopifnot(length(s$sdev) == ncol(s$rotation))
Error: length(s$sdev) == ncol(s$rotation) is not TRUE
Execution halted

Looking at stats:::prcomp.default(), it appears that s$v is
truncated but not s$d (unlike in the code before r70391) for the
reduced rank case.

h.

-- 
+---
| Hiroyuki Kawakatsu
| Business School, Dublin City University
| Dublin 9, Ireland. Tel +353 (0)1 700 7496

>>>>> Hiroyuki Kawakatsu <hkawakat at gmail.com>
>>>>>     on Wed, 30 Mar 2016 09:27:16 +0100 writes:
    > Hi, This may be a `transitional' bug but I am reporting a
    > make check fail with R-devel r70391 in
    > reg-tests-1a.Rout. The tail of reg-tests-1a.Rout.fail is

    >> ## prcomp(tol=1e-6) x <- matrix(runif(30),ncol=10) s <-
    >> prcomp(x, tol=1e-6) stopifnot(length(s$sdev) =    >>
ncol(s$rotation))
    > Error: length(s$sdev) == ncol(s$rotation) is not TRUE
    > Execution halted

    > Looking at stats:::prcomp.default(), it appears that s$v
    > is truncated but not s$d (unlike in the code before
    > r70391) for the reduced rank case.

Exactly.  I had this in the list of changes to be committed in
r70391, but not on the computer I did commit.

The 'transitional' period (above) has terminated 2 minutes ago.
Thank you, Hiroyuki for the reminder.

Martin