如何使用Rcpp加速for循环?

I have created a for loop and I would like to speed it up using the Rcpp library. I am not too familiar with C++. Can you please help me make my function faster? Thank you for your help!I have created a for loop and I would like to s