weight <- c(50,55,63,55,67,43,52)
bodycount <- c(150,160,170,175,150,153,165)

plot(weight,bodycount)

mean(weight) 
## [1] 55