\begin{Schunk}
\begin{Sinput}
 predictOMatic(incedmod1, predVals = list(education = "quantile"), n = 10, interval = "confidence")
\end{Sinput}
\begin{Soutput}
   education       fit       lwr       upr
1      6.380  2880.840  1586.748  4174.933
2      7.522  3907.285  2846.511  4968.058
3      8.128  4451.965  3502.770  5401.160
4      8.766  5025.408  4179.669  5871.147
5      9.708  5872.089  5140.216  6603.963
6     10.540  6619.902  5933.801  7306.003
7     11.172  7187.951  6494.982  7880.921
8     12.209  8120.020  7341.762  8898.279
9     13.620  9388.245  8390.331 10386.160
10    14.703 10361.660  9150.520 11572.799
11    15.970 11500.456 10014.844 12986.067
\end{Soutput}
\end{Schunk}
