[Picante-commits] r162 - branches/gsoc/R

[noreply at r-forge.r-project.org]

Author: mrhelmus
Date: 2008-08-13 08:01:45 +0200 (Wed, 13 Aug 2008)
New Revision: 162

Modified:
   branches/gsoc/R/pblmpredict.R
Log:
fixed phylocovs bug

Modified: branches/gsoc/R/pblmpredict.R
===================================================================
--- branches/gsoc/R/pblmpredict.R	2008-08-13 05:20:28 UTC (rev 161)
+++ branches/gsoc/R/pblmpredict.R	2008-08-13 06:01:45 UTC (rev 162)
@@ -1,7 +1,7 @@
 pblmpredict<-function(x,tree1.w.novel=NULL,tree2.w.novel=NULL,predict.originals=FALSE)
 {
   if (!identical(class(x),"pblm")) stop("x must be of class pblm")
-  if(is.null(phylocovs$V1) | is.null(phylocovs$V2)) stop("a pblm fit with phylogenies must be supplied")
+  if(is.null(x$phylocovs$V1) | is.null(x$phylocovs$V2)) stop("a pblm fit with phylogenies must be supplied")
   
   sppnames1.orig<-rownames(x$phylocovs$V1)
   sppnames2.orig<-rownames(x$phylocovs$V2)