Added Comppass score in R