nScenarios <- length(samplePsis)
NMC1 <- vector("list", nScenarios)
for (i in 1:nScenarios) {
NMC1[[i]] <- calcNMC(samplePsis[[i]])
}
names(NMC1) <- names(samplePsis)
str(NMC1)
calcNMC(samplePsis[[7]], sampleOriginRelN[[2]])
Run the code above in your browser using DataLab