library(parallel)
ncores <- detectCores(logical =FALSE)
ncores