From p.dalgaard at biostat.ku.dk  Mon Apr 11 09:46:11 2005
From: p.dalgaard at biostat.ku.dk (Peter Dalgaard)
Date: Mon Apr 11 09:46:20 2005
Subject: [Rd] strange error with rw2010dev
In-Reply-To: <16986.8155.624235.787171@stat.math.ethz.ch>
References: <4248AC1A.3020104@acelerate.com> <425969D4.9020105@acelerate.com>
	<16986.8155.624235.787171@stat.math.ethz.ch>
Message-ID: <x2fyxxdad8.fsf@turmalin.kubism.ku.dk>

Martin Maechler <maechler@stat.math.ethz.ch> writes:

> >>>>> "Kjetil" == Kjetil Brinchmann Halvorsen <kjetil@acelerate.com>
> >>>>>     on Sun, 10 Apr 2005 14:00:52 -0400 writes:
> 
>     Kjetil> The error reported below still occurs in todays
>     Kjetil> (2005-04-08) rw2010beta, should I file a formal bug
>     Kjetil> report?
> 
> Thank you, Kjetil.
> 
> It seems nobody has found time to look at this in the mean time.
> However,
> I can confirm the bug on quite a different platform
> (Linux Redhat 64-bit on AMD 64).
> The problem is infinite recursion which you see more easily,
> when you set something like options(expressions=500).
> 
> Further note that the bug is not new, it also happens in
> previous versions of R ( -> i.e. no reason to stop using "R 2.1.0 beta"!)
> 
> Here's a ``pure script''
> 
> testmat <- matrix(1:80, 20,4)
> dim(testmat)
> #
> testframe <- data.frame(testmat=I(testmat),
>                         x=rnorm(20), y=rnorm(20), z=sample(1:20))
> str(testframe)
> 
> options(expressions=100)
> summary(testframe)
> ##> Error: evaluation nested too deeply: infinite recursion / options(expression=)?
> ## -- or --
> ##> Error: protect(): protection stack overflow
> 
> 
> ### In the second case, I at least get a useful trace back:
> 
> traceback() ## longish output, shows the infinite recursion:
> 
> ..........................
> ...........................
> 
> 17: summary.data.frame(data.frame(object), ...)
> 16: summary.matrix(object, digits = digits, ...)
> 15: summary.default(X[[1]], ...)
> 14: FUN(X[[1]], ...)
> 13: lapply(as.list(object), summary, maxsum = maxsum, digits = 12, 
>         ...)
> 12: summary.data.frame(data.frame(object), ...)
> 11: summary.matrix(object, digits = digits, ...)
> 10: summary.default(X[[1]], ...)
> 9: FUN(X[[1]], ...)
> 8: lapply(as.list(object), summary, maxsum = maxsum, digits = 12, 
>        ...)
> 7: summary.data.frame(data.frame(object), ...)
> 6: summary.matrix(object, digits = digits, ...)
> 5: summary.default(X[[1]], ...)
> 4: FUN(X[[1]], ...)
> 3: lapply(as.list(object), summary, maxsum = maxsum, digits = 12, 
>        ...)
> 2: summary.data.frame(testframe)
> 1: summary(testframe)
> 
> --------
> 
> Thanks again for the report;
> this should be fixable before release.

Preferably before code freeze! (today)

I think we (Thomas L.?) got it analysed once before: The issue is that
summary.matrix is passing data.frame(object) back to
summary.data.frame without removing the AsIs class.

I don't a simple unclass() will do here. 

-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard@biostat.ku.dk)             FAX: (+45) 35327907


[Rd] strange error with rw2010dev
Peter Dalgaard