I need to create a function in R for mean without using the base functions mean() or sum()

Question

I know this is a pretty simple question but I am new to R and am having serious trouble coming up with a mean function that does not include "sum()". Can anyone help w