x <- seq(-10, 50, 0.1 )
plot(LogLin(x, a=5) ~ x, type="l")
grid()
lines(LogLin(x, a=2) ~ x, col="brown")
lines(LogLin(x, a=0.5) ~ x, col="steelblue")
lines(LogGen(x, a=1) ~ x, col="orange")
Run the code above in your browser using DataCamp Workspace