Revision: 947
Author: r_burrows
Date: 2006-03-20 09:31:46 -0800 (Mon, 20 Mar 2006)
ViewCVS: http://svn.sourceforge.net/r-gregmisc/?rev=947&view=rev
Log Message:
-----------
changed positioning of legend
Modified Paths:
--------------
trunk/PathwayModeling/thesispaper/R/plotMSD16.R
Modified: trunk/PathwayModeling/thesispaper/R/plotMSD16.R
===================================================================
--- trunk/PathwayModeling/thesispaper/R/plotMSD16.R 2006-03-20 17:29:20 UTC (rev 946)
+++ trunk/PathwayModeling/thesispaper/R/plotMSD16.R 2006-03-20 17:31:46 UTC (rev 947)
@@ -8,11 +8,12 @@
temp3 <- temp3 + getMSDvsEvals(eval(as.name(file)),2,20)
}
temp3 <- temp3/10
- plot(log10(temp1[,1]),temp1[,2],type='l',ylim=c(5000,max(temp1[,2],temp2[,2],temp3[,2])),xlim=c(0,7),xlab="log10(#evals)",ylab="mean squared residual")
+ ymax <- max(temp1[,2],temp2[,2],temp3[,2])
+ plot(log10(temp1[,1]),temp1[,2],type='l',ylim=c(5000,ymax),xlim=c(0,7),xlab="log10(#evals)",ylab="mean squared residual")
par(new=T)
- plot(log10(temp2[,1]),temp2[,2],type='l',ylim=c(5000,max(temp1[,2],temp2[,2],temp3[,2])),xlim=c(0,7),col=2,lty=2,xlab="",ylab="")
+ plot(log10(temp2[,1]),temp2[,2],type='l',ylim=c(5000,ymax),xlim=c(0,7),col=2,lty=2,xlab="",ylab="")
par(new=T)
- plot(log10(temp3[,1]),temp3[,2],type='l',ylim=c(5000,max(temp1[,2],temp2[,2],temp3[,2])),xlim=c(0,7),col=3,lty=3,xlab="",ylab="")
- legend(4.5,14000,c("1-comp","all-comp","NKC"),lty=1:3,col=1:3)
+ plot(log10(temp3[,1]),temp3[,2],type='l',ylim=c(5000,ymax),xlim=c(0,7),col=3,lty=3,xlab="",ylab="")
+ legend(4.5,ymax,c("1-comp","all-comp","NKC"),lty=1:3,col=1:3)
}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
