# NOT RUN {
# Access to number of available threads
threads <- get.thread.count()
# Force a single threaded openMP job
set.thread.count(1)
# Revert back to all accessible threads
set.thread.count(threads)
# }
Run the code above in your browser using DataLab