Skip to content
Prev 292731 / 398498 Next

"Conditional" average

I think this will accomplish what you describe:

dd <- data.frame(id=c(1:6), age76=c(25, 27, 30, 82, 20, 25), 
Wage76=c(102456, 15432, 12340, 6, 20000, 15000), Grade76=c(12, 15, 16, 
88, 16, 12), Black=c(1, 0, 1, 0, 1, 1), imigrt=c(0, 1, 1, 0, 1, 1))
dd
dd.sub <- subset(dd, Grade76 %in% c(12,15,16))
dd.sub
#aggregate and summaryBy accomplish similar thing
aggregate(data=dd.sub, Wage76 ~ age76, FUN=mean)
library(doBy)         #lattice gets loaded too
summaryBy(data=dd.sub, Wage76 ~ age76)
dd.means <- aggregate(data=dd.sub, Wage76 ~ age76, FUN=mean)
xyplot(data=dd.means, Wage76 ~ age76)   # lattice already loaded

--Chris Ryan
kebrab67 wrote: