f <- makeFun( sin(x^2 * b) ~ x & y & a); f
g <- makeFun( sin(x^2 * b) ~ x & y & a, a=2 ); g
h <- makeFun( a * sin(x^2 * b) ~ b & y, a=2, y=3); h
model <- lm(wage ~ poly(exper,degree=2), data=CPS)
fit <- makeFun(model)
xyplot(wage ~ exper, data=CPS)
plotFun(fit(exper) ~ exper, add=TRUE)
Run the code above in your browser using DataLab