Revision: 949
Author: r_burrows
Date: 2006-03-25 06:42:14 -0800 (Sat, 25 Mar 2006)
ViewCVS: http://svn.sourceforge.net/r-gregmisc/?rev=949&view=rev
Log Message:
-----------
added ML curves
Modified Paths:
--------------
trunk/PathwayModeling/thesispaper/R/plotVi.R
Modified: trunk/PathwayModeling/thesispaper/R/plotVi.R
===================================================================
--- trunk/PathwayModeling/thesispaper/R/plotVi.R 2006-03-25 14:41:09 UTC (rev 948)
+++ trunk/PathwayModeling/thesispaper/R/plotVi.R 2006-03-25 14:42:14 UTC (rev 949)
@@ -17,7 +17,7 @@
par(new=T)
plot(times,temp2[[1]],ylim=c(low,high),type="l",xlab="",ylab="",col=2)
abline(h=0)
- legend(32,2000,c("data","fitted curve","95% CI"),lty=c(0,1,2),pch=c(1,NA,NA),col=c(1,2,2))
+ legend(32,2000,c("data","fitted curve","95% CI","ML"),lty=c(0,1,2,1),pch=c(1,NA,NA,NA),col=c(1,2,2,3))
for (i in 3:5) {
CI <- get95CI(i,input,1,Dsamp)
low <-min(CI,-400)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
