I need to put the attached skew formula in R and I have been having trouble calculating it. I cannot use base packages so the only way to do this is by creating the formula in R. Does anyone know if there is a more efficient way of doing this?

Skew formula

My Code attempt