x <- seq(0, 100, 0.1) plot(x, (1+(1/(x)))**(x)) abline(h = exp(1), col="red")
To embed this project on your website, copy the following code and paste it into your website's HTML: