class 4

x <- 1:50 plot(x, sin(x), typ=“l”, lwd=3, col= “pink”)