add dge R script