chebPoly(6)
## Not run:
# ## Plot 6 Chebyshev Polynomials
# plot(0, 0, type="n", xlim=c(-1, 1), ylim=c(-1.2, 1.2),
# main="Chebyshev Polynomials for n=1..6", xlab="x", ylab="y")
# grid()
# x <- seq(-1, 1, length.out = 101)
# for (i in 1:6) {
# y <- chebPoly(i, x)
# lines(x, y, col=i)
# }
# legend(x = 0.55, y = 1.2, c("n=1", "n=2", "n=3", "n=4", "n=5", "n=6"),
# col = 1:6, lty = 1, bg="whitesmoke", cex = 0.75)
# ## End(Not run)
Run the code above in your browser using DataLab