# Example with hypothetical tree and data structure
tree <- "((d:1,e:1):2,a:2);"
data <- list(
#Tip 1
list(c(rep(1,9), rep(0,1)),
c(rep(0,9), 1),
c(rep(0,9), rep(0.5,1))),
#Tip 2
list(c(rep(0,9), rep(0.5,1)),
c(rep(0.5,9), 1),
c(rep(1,9), rep(0,1))),
#Tip 3
list(c(rep(1,9), rep(0.5,1)),
c(rep(0.5,9), 1),
c(rep(0,9), rep(0.5,1))))
index_islands <- c(1,3)
pValue_CherryFreqsChange_i(data, categorized_data = TRUE, index_islands, tree)
Run the code above in your browser using DataLab