# NOT RUN {
f <- counting_function(generate_double_sum_function(5))
number_of_evaluations(f)
y <- f(random_parameters(1, f))
number_of_evaluations(f)
reset_evaluation_counter(f)
number_of_evaluations(f)
y <- f(random_parameters(21, f))
number_of_evaluations(f)
# }
Run the code above in your browser using DataLab