tree <- "((a:1,b:1):2,(c:2,d:2):1.5);"
data <- list(
list(rep(1,10), rep(0,5), rep(1,8)),
list(rep(1,10), rep(0.5,5), rep(0,8))
)
index_islands <- c(1,3)
computeFitch_islandGlbSt(index_islands, data, tree, 0.2, 0.6)
Run the code above in your browser using DataLab