CA scaling in R