# \donttest{
presence <- ecospat.testData[c(53,62,58,70,61,66,65,71,69,43,63,56,68,57,55,60,54,67,59,64)]
pred <- ecospat.testData[c(73:92)]
nperm <- 1000
outpath <- getwd()
cons_Cscore<-ecospat.cons_Cscore(presence, pred, nperm)
# }
Run the code above in your browser using DataLab