Add exponential functionals to test_1.R