Hi Iñaki, thank you very much. :) All 3 solutions work for me. The easiest solution for me is to change the line: cvm[[i]] <- cvrisk(model[[i]]) to: cvm[[i]] <- cvrisk(model[[i]], papply=lapply) -- Best regards, René