lt;-
if(l2FCShrink){
as.data.frame(lfcShrink(dds, contrast=rn, type = "ashr"));
} else {
as.data.frame(results(dds, contrast=rn));
}
results.df$log2FoldChange <- round(results.df$log2FoldChange, 2);
results.df