R script supports DP