Why is my Rcpp mean function slower than R?

Question

I want to create a C++ function that raises each element in x to power and takes the mean. I\'ve created three versions: