Clumpsy code for subtracting mean and SE for gt() table

Question

I have tried to make a piece of code that takes the mean and standard error of my data and puts it into a gt() table.

It feels very clumpsy, however. Doe