R/groupcenter.R

In vdweijer/supply: All Kinds of Everything

Defines functions groupcenter

Documented in groupcenter

groupcenter=function(x,group){
   tapply(x,group,mean,na.rm=TRUE)[group]}