powered by
x, y
ezpolar(fun, interv = c(0, 2*pi))
NULL
polar
ezplot
fun <- function(x) 1 + cos(x) ezpolar(fun)
Run the code above in your browser using DataLab