Update RarePlot.R

I uploaded the wrong function editing to correct one.