library(freqparcoord)
data(mlb)
muhats <- tapply(mlb$Weight,mlb$Height,mean)
tapply(mlb$Weight,mlb$Height,length)