x <- 1:50 plot(x, sin(x))
plot(x, sin(x), typ = "l", col = "blue", lwd = 2)
log(10, base=10)
## [1] 1