##---- 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 (colist,island)
{
resultlist <- list()
scenarionum = length(colist)
length(resultlist) <- scenarionum
for (i in 1:scenarionum) {
resultlist[[i]] <- sta.fitness(colist[[i]],island)
}
return(resultlist)
}
Run the code above in your browser using DataLab