Create ProPre.R

First upload on 10/9/13