--- a/shm_csr.r	Tue Oct 25 07:28:43 2016 -0400
+++ b/shm_csr.r	Thu Oct 27 07:26:45 2016 -0400
@@ -374,7 +374,7 @@
 	pc = pc + coord_polar(theta="y") + scale_y_continuous(breaks=NULL)
 	pc = pc + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=13, colour="black"))
 	pc = pc + xlab(" ") + ylab(" ") + ggtitle(paste("IGA subclasses", "( n =", sum(genesForPlot$Freq), ")"))
-	write.table(genesForPlot, "IGA.txt", sep="\t",quote=F,row.names=F,col.names=T)
+	write.table(genesForPlot, "IGA_pie.txt", sep="\t",quote=F,row.names=F,col.names=T)
 
 	png(filename="IGA.png")
 	print(pc)
@@ -395,7 +395,7 @@
 	pc = pc + coord_polar(theta="y") + scale_y_continuous(breaks=NULL)
 	pc = pc + theme(panel.background = element_rect(fill = "white", colour="black"), text = element_text(size=13, colour="black"))
 	pc = pc + xlab(" ") + ylab(" ") + ggtitle(paste("IGG subclasses", "( n =", sum(genesForPlot$Freq), ")"))
-	write.table(genesForPlot, "IGG.txt", sep="\t",quote=F,row.names=F,col.names=T)
+	write.table(genesForPlot, "IGG_pie.txt", sep="\t",quote=F,row.names=F,col.names=T)
 
 	png(filename="IGG.png")
 	print(pc)