# Example data setup
data <- list(
list(rep(1,10), rep(0,5), rep(1,8)), # Tip a
list(rep(1,10), rep(0.5,5), rep(0,8)), # Tip b
list(rep(1,10), rep(0.5,5), rep(0,8)), # Tip c
list(c(rep(0,5), rep(0.5, 5)), c(0, 0, 1, 1, 1), c(0.5, 1, rep(0, 6)))) # Tip d
tree <- "((a:1.5,b:1.5):2,(c:2,d:2):1.5);"
index_islands <- c(1,3)
index_nonislands <- c(2)
MeanSiteFChange_cherry(data = data,
categorized_data = TRUE,
tree = tree,
index_islands = index_islands,
index_nonislands = index_nonislands)
Run the code above in your browser using DataLab