is there drier code to make a mean out of 8 columns

Question

Is there a simpler and drier code to do this:

dfg$CD44low_rep <- rowMeans(dfg[,c(\'CD44low_rep1\', \'CD44low_rep2\')], na.rm=TRUE)
dfg$CD44hi_CD69low_rep &