pg R coding