x <- seq(-pi, pi, 0.1) plot(x, cos(x))
To embed this project on your website, copy the following code and paste it into your website's HTML: