#load simulated singing data (see data documentation)
data(coor.sing)
# testing if coordination happens less than expected by chance
coor.test(coor.sing, iterations = 1000, less.than.chance = T)
# testing if coordination happens more than expected by chance
coor.test(coor.sing, iterations = 1000, less.than.chance = F)
Run the code above in your browser using DataLab