Do not use obsoleted method
Add plotting R script for priorities