- focus[[i]] <- which(phy$tip.label == focus[[i]])
- if (is.function(col))
- if (deparse(substitute(col)) == "grey")
- col <- grey(1:n/n) else col <- col(n)
- ext <- list()
- length(ext) <- n
+ focus[[i]] <- which(phy$tip.label %in% focus[[i]]) # fix by Yan Wong
+ if (is.function(col)) {
+ col <- if (deparse(substitute(col)) == "grey") grey(1:n/n) else col(n)
+ }
+ ext <- vector("list", n)