Message-ID: <1342579786275-4636828.post@n4.nabble.com>
Date: 2012-07-18T02:49:46Z
From: David Freedman
Subject: weighted mean by week
In-Reply-To: <CAN2xGJYVHtYH86=tPS6yF7w8QcGm6b-xpqf4kdiBJm=3WkVwHA@mail.gmail.com>
Honestly, I wasn't sure what you wanted to do with 'group'. Here it is with
the 'group' variable deleted
library(data.table)
dt=data.table(x[,-1])
dt[,lapply(.SD, function(x)weighted.mean(x,myweight)), keyby='myweek']
--
View this message in context: http://r.789695.n4.nabble.com/weighted-mean-by-week-tp4636814p4636828.html
Sent from the R help mailing list archive at Nabble.com.