Add rdata save to D17 downsample aggr

r.scripts/sc-TissueMapper_RUN.DS_D17.aggr.R

@@ -103,4 +103,6 @@ plot.comb <- plot.comb+geom_vline(xintercept=fit.x,linetype=2,size=1.5)+geom_hli
 plot.comb <- plot.comb+labs(x="Mean Reads Per Cell",y="NMI")
 plot.comb <- plot.comb+scale_x_continuous(expand=c(0,0),limits=c(0,80000),breaks=c(seq(0,100000,25000),round(fit.x,0)))+scale_y_continuous(expand=c(0,0),limits=c(0,1),breaks=c(seq(0,1,0.2),fit.y))
 plot(plot.comb)
-dev.off()
\ No newline at end of file
+dev.off()
+
+save.image(file="./analysis/NMI.RData")
\ No newline at end of file