Update cor.drop.R