source("01b_MesobromionCluster.R")
species.path <- "_data/Mesobromion/species.out.10perc.txt"
traits.path  <- "_data/Mesobromion/traits.out.10perc.txt"
output  <- "test"
myfunction <- "get.corXY.bootstrap"
max.inter.t <- 1
chunkn <- 40
chunk.i <- 1
nperm <- 3

Mesobromion(species.path, traits.path, output, myfunction, max.inter.t, chunkn, chunk.i, nperm)