# determine current number of threads
setNumThreads()
if (FALSE) {
# set new number of threads
setNumThreads(7)
# a call to secr.fit that specifies 'ncores' also sets the
# number of threads, as we see here
fit <- secr.fit(captdata, trace = FALSE, ncores = 8)
setNumThreads()
}
Run the code above in your browser using DataLab