add R code for DGE