library(npregfast)
data(barnacle)
# Nonparametric regression with interactions
fit2 <- frfast(DW ~ RC : F, data = barnacle, nboot = 100)
plotdiff(fit2, level2 = "lens", level1 = "barca")
plotdiff(fit2, level2 = "lens", level1 = "barca", der = 1, col = "blue", CIcol = "grey")
plotdiff(fit2, "lens", "barca", der = c(0, 1), ylim = c(-0.05, 0.05))Run the code above in your browser using DataLab