加快一个奇怪的慢速Rcpp功能

I want to rewrite an expensive R function using Rcpp. As I am new to this topic I experimented with some very simple stuff. I wrote the following function:I want to rewrite an expensive R function using