x <- seq(0, 24, 1) plot(x, 20+19*sin(pi*x/24+pi)) x <- seq(0, 48, 0.1) plot(x, 20+19*sin(pi*x/24+pi),'l')
To embed this project on your website, copy the following code and paste it into your website's HTML: