Merge pull request #8 from bnicenboim/patch-2

same as #7 adding round

Author: jgabry

2017/Contributed-Talks/07_nicenboim/kfold.html

@@ -280,7 +280,7 @@ <h1><span class="header-section-number">1</span> Appendix: K-fold cross validati
     # First parallelize all chains:
     sflist &lt;- pbmclapply(1:(K * chains), mc.cores = cores, function(i) {
         # Fold number:
-        k &lt;- ((i + 1)/chains)
+        k &lt;- round((i + 1)/chains)
         s &lt;- sampling(model, data = list_of_datas[[k]], chains = 1, chain_id = i, 
             ...)
         return(s)