#############################################################################
# EXAMPLE 1: Group means data.ma02
#############################################################################
data( data.ma02 )
dat <- data.ma02[[1]] # select first dataset
# group means for read and math
fast.groupmean( dat[ , c("read","math") ] , group=dat$idschool )
# extend group means to original dataset
fast.groupmean( dat[ , c("read","math") ] , group=dat$idschool , extend =TRUE )
Run the code above in your browser using DataLab