x1 <- seq(-4, 4, 0.1)
x1

y1 <- exp(2*x1)
y1

plot(x1, y1, xlab = "X", ylab = "Y")

Embed on website

To embed this program on your website, copy the following code and paste it into your website's HTML: