Add cor.R