search for: meanagef

...to get them directly from the residuals as follows. The data is at the end of the email. While there is a match for the males there is a large difference for the females indicating that what I am doing is wrong. # meanAge <- mean(dd$Age) meanAgeM <- mean(dd$Age[d$Gender=="M"]) meanAgeF <- mean(dd$Age[d$Gender=="F"]) # determine adjusted means for the males and females at meanAge using predict # set up data frame to get predicted values at meanAge evalDF <- data.frame(Age = meanAge, Gender = c("F","M"), Group = c("1NC",&quo...