# Example data setup
data <- list(
# Tip 1
list(rep(1,10), rep(0,5), rep(1,8)),
# Tip 2
list(rep(1,10), rep(0.5,5), rep(0,8))
)
index_islands <- c(1,3)
get_meanMeth_islands(index_islands, data)
Run the code above in your browser using DataLab