s-tilde^2 = (1/n) sum (xi - xbar)^2 (eqs 3.37, 3.60), reported beside the identity (1/n) sum (xi - xbar)^2 = mean(x^2) - xbar^2 (eq 3.66) evaluated by its own route.
References
Morin, D. J. (2016). Probability: For the Enthusiastic Beginner. Createspace. Eqs (3.37), (3.60), (3.66).
Examples
PopVar(c(2, 4, 4, 4, 5, 5, 7, 9))$variance
#> [1] 4
