r - 回帰モデルで二次項を使用して最小効果を見つける

Question

二次項は、回帰では非常に一般的です。John Fox の例を次に示します ( http://www.jstatsoft.org/v08/i15/paper )

library(car) # For data
library(splines)  # For bs()
library(effects) # For plotting

data(Prestige)

prestige.mod <- lm(prestige ~ log(income) + bs(education, df=3) + poly(women, 2), data=Prestige)
summary(prestige.mod)

test <- plot(all.effects(prestige.mod, default.levels=50))

手動で導出/プロットせずに、二次効果の最小/最大をすぐに取得するRのコマンドはありますか?