data(CPS)
f <- smoother(wage ~ age, span=.9, data=CPS)
f(40)
df <- D(f(age) ~ age)
df(40)
g <- linearModel(log(wage) ~ age+educ+1, data=CPS)
g(age=40, educ=12)
dgdeduc <- D(g(age=age, educ=educ) ~ educ)
dgdeduc(age=40, educ=12)
x<-1:5; y=c(1, 2, 4, 8, 8.2)
f1 <- spliner(y ~ x)
f1(x=8:10)
f2 <- connector(x~y)
Run the code above in your browser using DataLab