meanforYear = function(x,year){
  x=x[which(x$Year==year),]
  return(sum((x$Age*x$Total)/sum(x$Total)))
}