number <- 512
log_base <- 8
result <- log(number, base = log_base)
# result = 3
# One argument: natural log
ln <- log(exp(1))
# ln = 1
# Base 2 has its own function
result2 <- log2(number)
# result2 = 9
# Zero gives -Inf
log_zero <- log(0)
# log_zero = -Inf
cat("result =", result, "\n")
cat("ln =", ln, "\n")
cat("result2 =", result2, "\n")
cat("log_zero =", log_zero, "\n")