Create p.R