[Rd] make check on DU4 with R-1.1.0 snapshot

[Albrecht Gebhardt]

On Fri, 2 Jun 2000, Albrecht Gebhardt wrote:

> On Fri, 2 Jun 2000, Albrecht Gebhardt wrote:
> 
> > 
> > I just tried the rsync version of R-1.1.0 on one of my alphas:
> > It compiles without problems (gcc/g77 2.95.2, system is DU4.0E)
> > .........
> > 
> > I compiled --whithout-dxml, so I'm not using any special numeric library.
> > 
> 
> Sorry I mixed something up in my report: In this compile I used the alpha
> specific DXML library, in my rpms I omit it with --without-dxml (because
> it sometimes crashes). I will try once more now without dxml, may be this
> changes something, don't know if it gets used at all in the svd code.
> 

That was the reason. Now without DXML I pass the test without modifying
Eps:

> X <- cbind(1, 1:7)
> str(s <- svd(X)); D <- diag(s$d)
List of 3
 $ d: num [1:2] 12.07  1.16
 $ u: num [1:7, 1:2] -0.0976 -0.1788 -0.2601 -0.3413 -0.4225 ...
 $ v: num [1:2, 1:2] -0.198 -0.980 -0.980  0.198
> abs(X - s$u %*% D %*% t(s$v)) < Eps
     [,1] [,2]
[1,] TRUE TRUE
[2,] TRUE TRUE
[3,] TRUE TRUE
[4,] TRUE TRUE
[5,] TRUE TRUE
[6,] TRUE TRUE
[7,] TRUE TRUE
> abs(D - t(s$u) %*% X %*% s$v) < Eps
     [,1] [,2]
[1,] TRUE TRUE
[2,] TRUE TRUE


So may be it is better do disable dxml support by default in ./configure?

The following patch should do this:
--- configure.in.orig        Fri Jun  2 23:10:20 2000
+++ configure.in     Fri Jun  2 23:10:02 2000
@@ -122,7 +122,7 @@
     else
       use_dxml=true;
     fi],
-  use_dxml=true)
+  use_dxml=false)

 AC_ARG_WITH(atlas,
   [  --with-atlas            use ATLAS library (if available)],


Albrecht

......................................................................
| Albrecht Gebhardt          Tel.: (++43 463) 2700/832               |
| Institut fuer Mathematik   Fax : (++43 463) 2700/834               |
| Universitaet Klagenfurt    mailto:albrecht.gebhardt@uni-klu.ac.at  |
| Villacher Str. 161         http://www-stat.uni-klu.ac.at/~agebhard |
| A-9020 Klagenfurt, Austria                                         |
`--------------------------------------------------------------------'

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._