[Rd] reg-tests-1a fails with r70391

[Hiroyuki Kawakatsu]

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