number <- 1000
result <- log10(number)
# result = 3
# log() with base 10 is exactly log10()
same <- log(number, base = 10) == result
# same = TRUE
powers <- log10(c(1, 10, 100, 1000))
# powers = 0 1 2 3
cat("result =", result, "\n")
cat("same =", same, "\n")
cat("powers =", powers, "\n")