plotDensityCurves(qs,path.index=1:3,col=1:numPathways(qs),main=paste0("Cluster ",i),xlim=c(min.x.rg.sc-0.05,max.x.rg.sc+0.05),ylim=c(0,50*ceiling(max.y.rg.sc/50)),xlab="Gene Set Activation",lwd=2,cex.main=2.5)
plotDensityCurves(qs,path.index=1:3,col=1:numPathways(qs),main=paste0("Cluster ",i),xlim=c(min.x.rg.sc-0.05,max.x.rg.sc+0.05),ylim=c(0,50*ceiling(max.y.rg.sc/50)),xlab="Gene Set Activation",lwd=2,cex.main=2.5)