From spluque at gmail.com  Tue Sep 14 20:50:43 2010
From: spluque at gmail.com (Seb)
Date: Tue, 14 Sep 2010 13:50:43 -0500
Subject: [Rd] value returned by by()
In-Reply-To: <4C8F481C.8010502@statistik.tu-dortmund.de> (Uwe Ligges's message
	of "Tue, 14 Sep 2010 12:02:04 +0200")
References: <87vd69b8f6.fsf@kolob.sebmags.homelinux.org>
	<4C8F481C.8010502@statistik.tu-dortmund.de>
Message-ID: <877hiob1mk.fsf@kolob.sebmags.homelinux.org>

On Tue, 14 Sep 2010 12:02:04 +0200,
Uwe Ligges <ligges at statistik.tu-dortmund.de> wrote:

> It returns a list with athe class attribut set to "by", just use: x <-
> by(.....)  unclass(x)

Thanks Uwe, however, that still returns an array when using the
data.frame method for by():

R> class(unclass(with(warpbreaks, by(warpbreaks[, 1:2], tension, summary))))
[1] "array"

It seems as if the only way to really ensure a list:

R> class(lapply(unclass(with(warpbreaks, by(warpbreaks[, 1:2], tension, summary))), function(x) x))
[1] "list"

but it seems like a waste to call another function just to do this.


-- 
Seb



[Rd] value returned by by()
Seb