[R-gregmisc-users] SF.net SVN: r-gregmisc: [947] trunk/PathwayModeling/thesispaper/R/plotMSD16.R

[<r_b...@us...>]

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.