Message-ID: <AANLkTikofpHPSSR91LHDuVe14R2ZFeoYmc=gRFEGZOX+@mail.gmail.com>
Date: 2010-12-04T00:34:49Z
From: Gabor Grothendieck
Subject: data.table query
In-Reply-To: <AANLkTikARgVwYcKC2koirGPR5pJ5rcAmKv_ajc3iX26_@mail.gmail.com>
On Fri, Dec 3, 2010 at 6:38 PM, Santosh Srinivas
<santosh.srinivas at gmail.com> wrote:
> Hello Group,
>
> I need a modification in the data.table example to get my intended
> result shown below ... is there a more simple way!
>
> dt <- data.table(A = rep(1:3, each=4), B = rep(1:4, each=3), C = rep(1:2, 6))
> dt[, transform(.SD,D=mean(A)), by="B"]
>
>
> The result I want is below ... which is probably long winded!
>
> data.table(unique(as.data.frame(dt[, transform(.SD,D=mean(A)),
> by="B"][,list(B,D)])))
> ? ? B ? ? ? ?D
> [1,] 1 1.000000
> [2,] 2 1.666667
> [3,] 3 2.333333
> [4,] 4 3.000000
>
data.table has its own mailing list.
--
Statistics & Software Consulting
GKX Group, GKX Associates Inc.
tel: 1-877-GKX-GROUP
email: ggrothendieck at gmail.com