population variance and sample variance

sum((x-mean(x))^2)/(n)

((n-1)/n) * var(x)

It seems that var() computes sample variance. It is straight forward
to compute population variance from sample variance. However, I feel
that it is still convenient to have a function that can compute
population variance. Is there a population variance function available
in R?

$ Rscript var.R

set.seed(0)
n = 4
x = rnorm(n)
var(x)

[1] 0.6526278

sum((x-mean(x))^2)/(n-1)

[1] 0.6526278