Displaying 1 result from an estimated 1 matches for "mycurvea".
Did you mean:
mycurve
2010 Jan 20
1
function curve() (PR#14191)
...match("x", all.vars(sexpr), nomatch = 0L)
))
stop("'expr' must be a function or an expression containing 'x'")
expr <- sexpr
if (is.null(ylab))
ylab <- deparse(sexpr)
}
Example:
# use curve()
mycurveA <-
function(x,from=1,to=10){
xloc <- parse(text=x)
# call("mycurve0",expr=xloc,from=from,to=to)
do.call("curve",list(expr=xloc,from=from,to=to))
}
# use curve modified as suggested above.
mycurveB <-
function(x,from=1,to=10){
xloc <- parse(text=x)...