x <- seq(-2*pi, 2*pi, 0.1) plot(x, cos(x),type="l", col ="blue")
To embed this project on your website, copy the following code and paste it into your website's HTML: