Area calculation in R