Theta <- seq(from = 0, to = 360, length = 1000)
plot(Theta, cos(Theta * pi / 180), type = "l")

Theta <- seq(from = 0, to = 180, length = 1000)
plot(Theta, cos(Theta * pi / 180) ^ 2, type = "l")