initial mapping in R