From ahenningsen at email.uni-kiel.de  Tue Nov 22 18:37:09 2005
From: ahenningsen at email.uni-kiel.de (Arne Henningsen)
Date: Tue, 22 Nov 2005 18:37:09 +0100
Subject: [Rd] make check fails for R 2.3.0 (PR#8343)
In-Reply-To: <17283.18586.384788.982523@stat.math.ethz.ch>
References: <20051122115549.D1ECA23202@slim.kubism.ku.dk>
	<200511221619.20016.ahenningsen@email.uni-kiel.de>
	<17283.18586.384788.982523@stat.math.ethz.ch>
Message-ID: <200511221837.09387.ahenningsen@email.uni-kiel.de>

On Tuesday 22 November 2005 17:34, Martin Maechler wrote:
> >>>>> "Arne" == Arne Henningsen <ahenningsen at email.uni-kiel.de>
> >>>>>     on Tue, 22 Nov 2005 16:19:19 +0100 writes:
>
>     .....
>
>     >> You are reporting as a bug in R a problem on your own system in
>     >> an=20 unreleased ('unstable') version of R.
>
>     Arne> I used this version to check my R packages because the
>     Arne> packages on CRAN are checked by R-devel, too.
>
>     >> Since it is unstable and
>     >> unreleased, such things are by definition not bugs in R.
>
>     Arne> Sorry, I did not know this. I thought that my report could help
> you. Arne> The next time when I will find an error in R-devel I won't
> report it.
>
> No; please do "report" the problem, which may be useful for
> development, but please do *NOT* use the bug repository, and
> probably don't assume it's a bug in R, unless you have quite a
> bit experience about R bugs and non-bugs.
>
> Instead, just send e-mail to R-devel and explain,
> and you may actually helping R development, particularly if you
> are willing to investigate some details that we ma ask you
> about.
>
>     >> Others are not seeing this, so we cannot do anything
>     >> about the problems=20 seen on your system.  This is not
>     >> at all a new test, and although random=20 it is run with
>     >> set.seed(1). I can reproduce the result in the output
>     >> file= =20 (on my systems) exactly by
>     >>
>     >> > set.seed(1)
>     >> > hist(replicate(100, mean(rexp(10))))
>     >>
>     >> Please see if you can debug it on your own system.  (My guess would
>     >> be=20 that it only occurs as part of the test file.)
>
>     Arne> Yes, that's exactly the case. If you want any further
>     Arne> information please don't hesitate to contact
>     Arne> me. Otherwise I won't bother you anymore with this
>     Arne> issue.
>
> Too bad.
> It might have been interesting to see what
>
>  set.seed(1)
>  replicate(100, mean(rexp(10)))
>
> or also
>
>  set.seed(1)
>  hist(replicate(100, mean(rexp(10))))
>  traceback()
>  ##^^^^^^^^^
>
> gives on your R-devel installation.
> That's why Brian Ripley helped you by mentioning 'set.seed(1)'.

It is exactly as Brian Ripley said: If I just start R and execute
   set.seed(1)
   hist(replicate(100, mean(rexp(10))))
everything works well. However, if I run "make check" the error occurs.
Now I have tried something inbetween: I started R and source()d the file that 
caused the error. The error occured again:
R> sink("base-Ex.Rout")
R> source("tests/Examples/base-Ex.R",echo=TRUE)
Warnung in gamma(x) :NaNs wurden erzeugt
Warnung in gamma(x) :NaNs wurden erzeugt
Warnung in gamma(x) :NaNs wurden erzeugt
Fehler in assign("y", 2, env = e) : kann keine Bindungen zu einer 
abgeschlossenen Umgebung hinzuf?gen
Fehler in assign("x", 2, env = e) : kann den Wert einer festgestellten Bindung 
nicht ?ndern
Warnung in cbind(1, 1:7, diag(3)) :number of rows of result
        is not a multiple of vector length (arg 1)
Warnung in cbind(1, 0, matrix(1, nrow = 0, ncol = 4)) :
         number of rows of result
        is not a multiple of vector length (arg 1)
Warnung in withCallingHandlers({ :A
Warnung in data.matrix(DF) :Klasseninformation f?r eine oder mehrere Spalten 
verloren
Garbage collection 25 = 17+1+7 (level 2) ...
221048 cons cells free (47%)
10.2 Mbytes of heap free (90%)
Warnung in sqrt(x) :NaNs wurden erzeugt
Warnung in sqrt(x) :NaNs wurden erzeugt
Warnung in sin(Inf) :NaNs wurden erzeugt
Warnung in cos(Inf) :NaNs wurden erzeugt
Warnung in tan(Inf) :NaNs wurden erzeugt
Fehler in hist.default(replicate(100, mean(rexp(10)))) :
        invalid number of 'breaks'


Then I typed
R> traceback()
6: stop("invalid number of 'breaks'")
5: hist.default(replicate(100, mean(rexp(10))))
4: hist(replicate(100, mean(rexp(10))))
3: eval.with.vis(expr, envir, enclos)
2: eval.with.vis(ei, envir)
1: source("tests/Examples/base-Ex.R")

After sourcing this file it is impossible to use hist() because always the 
same error message occurs:
R> hist(rnorm(55))
Fehler in hist.default(rnorm(55)) : invalid number of 'breaks'
R> traceback()
3: stop("invalid number of 'breaks'")
2: hist.default(rnorm(55))
1: hist(rnorm(55))
R> hist(c(1,2,2))
Fehler in hist.default(c(1, 2, 2)) : invalid number of 'breaks'
R> traceback()
3: stop("invalid number of 'breaks'")
2: hist.default(c(1, 2, 2))
1: hist(c(1, 2, 2))

This seems to be independent from argument x (the values).

Cheers,
Arne

> Regards,
> Martin Maechler, ETH Zurich
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel

-- 
Arne Henningsen
Department of Agricultural Economics
University of Kiel
Olshausenstr. 40
D-24098 Kiel (Germany)
Tel: +49-431-880 4445
Fax: +49-431-880 1397
ahenningsen at agric-econ.uni-kiel.de
http://www.uni-kiel.de/agrarpol/ahenningsen/



[Rd] make check fails for R 2.3.0 (PR#8343)
Arne Henningsen