CMAP in R