Update dpqr.R