without parallel for selectiontotale.R (problem with parallel)