Added new r parsing script