RDX2 X   gc source 9function(fun = "x^2", z = 1, switch = FALSE, add = FALSE, : left = NULL, right = NULL, up = NULL, down = NULL, ...) { 5 if (is.null(left)) left <- -10 * z else left <- left 8 if (is.null(right)) right <- 10 * z else right <- right , if (is.null(up)) up <- 10 * z else up <- up 5 if (is.null(down)) down <- -10 * z else down <- down 8 if (!add) { plot(1, 1, type = "n", frame = F, axes = F,  xlim = c(left, right),  ylim = c(down, up),  xlab = "", ylab = "",  xaxs = "i", yaxs = "i",)  axis(1, tick = F, las = 1)  axis(2, tick = F, las = 1) ' abline(v = 0, h = 0, col = "#999999")  }  if (!switch) { 3 x <- (abs(left) + abs(right)) / 1000 * -1000:1000  y <- eval(parse(text = fun)) > if (length(y) != 1) lines(x, y, ...) else abline(h = y, ...)  }  else { 0 x <- (abs(up) + abs(down)) / 1000 * -1000:1000  y <- eval(parse(text = fun)) > if (length(y) != 1) lines(y, x, ...) else abline(v = y, ...)  } }þý fun x^2 z?ð switch  add  leftþ rightþ upþ downþ ...ûþ { if is.nullÿþ <-ÿ * -@$þÿþþÿÿÿþþ ÿÿÿþÿÿÿ@$ÿþþÿÿÿþþ ÿÿ ÿþÿ ÿÿ@$ÿþþÿ ÿ ÿþþ ÿÿ ÿþÿ ÿÿÿ@$þÿþþÿ ÿ ÿþþ ÿ !ÿþ ÿ plot?ð?ð type n frame F axesÿ xlim cÿÿþ ylimÿ ÿ ÿþ xlab  ylab  xaxs i yaxs iûþ axis?ð tickÿ las?ðþÿ@ ÿÿ!ÿ?ðþ abline v h col #999999þþþ ÿÿÿþ ÿÿ xÿ / ( + absÿþ*ÿÿþþþ@@þ :ÿ@@þ@@þþþÿ y eval parse textÿþþþ ÿ != length,ÿþ?ðþ lines&ÿ,ÿ ÿþ"ÿ$ÿ,ÿ ÿþþþ ÿÿ&ÿÿ'ÿ(ÿ)ÿ*ÿ ÿþ*ÿ ÿþþþ@@þ+ÿÿ@@þ@@þþþÿ,ÿ-ÿ.ÿ/ÿÿþþþ ÿ0ÿ1ÿ,ÿþ?ðþ2ÿ,ÿ&ÿ ÿþ"ÿ#ÿ,ÿ ÿþþþþþþ