Better R code...