\begin{Schunk}
\begin{Sinput}
 beta <- seq(0, 0.2, length=1000)
 betaexp <- exp(beta)
 beta100 <- beta*100
 plot(beta100, betaexp, type="l",  main = "100 * beta is very close to the decimal of betaexp * 100", xlab = "100 * beta", ylab = "exp(beta)")
 m1 <- lm(betaexp ~ beta100)
 abline(m1, col="red")
 legend("topleft", legend = c("observed", "OLS fit"), 
        lty = c(1, 1), col = c("black", "red"))  
\end{Sinput}
\end{Schunk}
