Permalink
Browse files

modification to plotTree.barplot to allow multiple barplots

  • Loading branch information...
liamrevell committed Oct 21, 2017
1 parent 1007197 commit 1b366dc1b1917c966de0ce26c7113ad8ec3c9d87
Showing with 1 addition and 0 deletions.
  1. +1 −0 R/plotTree.wBars.R
View
@@ -91,6 +91,7 @@ plotTree.barplot<-function(tree,x,args.plotTree=list(),
if(is.null(args.plotTree$lwd)) args.plotTree$lwd<-1
if(!add) par(mfrow=c(1,2))
do.call(plotTree,args.plotTree)
if(!is.null(args.plotTree$plot)&&args.plotTree$plot==FALSE) par(new=TRUE)
par(mar=args.barplot$mar)
obj<-do.call(barplot,args.barplot)
axis(1)

0 comments on commit 1b366dc

Please sign in to comment.