Call a user-defined function within a new user-defined function in C++

Question

I would like to run these function in R by sourcing the C++ code into R. I have used sourceCpp function in Rcpp R package to load the functions fro