Update plot.pcps.R

Add choices argument.