Permalink
Browse files

bug fix to assoc table update

  • Loading branch information...
liamrevell committed Apr 24, 2016
1 parent d5180a7 commit 48aed66a8b2e0da952feb306b08064d1173944e1
Showing with 2 additions and 2 deletions.
  1. +2 −2 R/cophylo.R
View
@@ -17,9 +17,9 @@ cophylo<-function(tr1,tr2,assoc=NULL,rotate=TRUE,...){
}
## check to verify that all taxa in assoc are in tree
ii<-sapply(assoc[,1],"%in%",tr1$tip.label)
assoc<-assoc[ii,]
if(any(!ii)) assoc<-assoc[ii,]
ii<-sapply(assoc[,2],"%in%",tr2$tip.label)
assoc<-assoc[jj,]
if(any(!ii)) assoc<-assoc[ii,]
## now check if rotation is to be performed
if(rotate){
cat("Rotating nodes to optimize matching...\n")

0 comments on commit 48aed66

Please sign in to comment.