1 2test_sequential <- function(max=100, nb=1000, display_progress=TRUE) { 3 .Call("test_sequential_wrapper2", max, nb, display_progress, PACKAGE = "RcppProgressETA") 4 invisible() 5} 6 7test_multithreaded <- function(max=100, nb=1000, threads=0, display_progress=TRUE) { 8 .Call("test_multithreaded_wrapper2", max, nb, threads, display_progress, PACKAGE = "RcppProgressETA") 9 invisible() 10} 11