From f30fff2b48d6e0463513306805eb4cbaa85edd3f Mon Sep 17 00:00:00 2001 From: paradis Date: Mon, 27 Jul 2009 07:46:47 +0000 Subject: [PATCH] fixing zoom() git-svn-id: https://svn.mpl.ird.fr/ape/dev/ape@85 6e262413-ae40-0410-9e79-b911bd7a66b7 --- ChangeLog | 4 +++- DESCRIPTION | 2 +- R/zoom.R | 4 ++-- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 678bba7..e5380d8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -3,7 +3,9 @@ BUG FIXES - o + o add.scale.bar() always drew a horizontal bar. + + o zoom() shuffled tips with unrooted trees. diff --git a/DESCRIPTION b/DESCRIPTION index 55c662c..e09314b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ape Version: 2.3-3 -Date: 2009-07-22 +Date: 2009-07-27 Title: Analyses of Phylogenetics and Evolution Author: Emmanuel Paradis, Ben Bolker, Julien Claude, Hoa Sien Cuong, Richard Desper, Benoit Durand, Julien Dutheil, Olivier Gascuel, Gangolf Jobb, Christoph Heibl, Daniel Lawson, Vincent Lefort, Pierre Legendre, Jim Lemon, Yvonnick Noel, Johan Nylander, Rainer Opgen-Rhein, Korbinian Strimmer, Damien de Vienne Maintainer: Emmanuel Paradis diff --git a/R/zoom.R b/R/zoom.R index f078bb4..b247376 100644 --- a/R/zoom.R +++ b/R/zoom.R @@ -1,4 +1,4 @@ -## zoom.R (2009-06-12) +## zoom.R (2009-07-27) ## Zoom on a Portion of a Phylogeny @@ -20,7 +20,7 @@ zoom <- function(phy, focus, subtree = FALSE, col = rainbow, ...) ext <- vector("list", n) for (i in 1:n) ext[[i]] <- drop.tip(phy, phy$tip.label[-focus[[i]]], - subtree = subtree) + subtree = subtree, rooted = TRUE) nc <- round(sqrt(n)) + 1 nr <- ceiling(sqrt(n)) M <- matrix(0, nr, nc) -- 2.39.5