##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function (coexistlist,coenum,spnum,parameters)
{
    if (is.list(coexistlist)) {
        scenarionum <- length(coexistlist)
        pairlist <- list()
        length(pairlist) <- scenarionum
        for (i in 1:scenarionum) {
            pairlist[[i]] <- sta.mpaircomparison(coexistlist[[i]], 
                coenum, spnum = spnum, parameters = parameters)
        }
        return(pairlist)
    }
  }
Run the code above in your browser using DataLab