Permalink
Browse files

fix plot.cophylo

  • Loading branch information...
liamrevell committed Aug 28, 2017
1 parent a7e0c2d commit 31e4ff12a867bda7ed17fdaf343594fa5d50fce9
Showing with 1 addition and 1 deletion.
  1. +1 −1 R/cophylo.R
View
@@ -231,7 +231,7 @@ plot.cophylo<-function(x,...){
if(hasArg(edge.col)) edge.col<-list(...)$edge.col
else edge.col<-list(
left=rep("black",nrow(x$trees[[1]]$edge)),
right=rep("black",nrow(x$trees[[1]]$edge)))
right=rep("black",nrow(x$trees[[2]]$edge)))
obj<-list(...)
par(mar=mar)
plot.window(xlim=xlim,ylim=ylim)

0 comments on commit 31e4ff1

Please sign in to comment.