\begin{Schunk}
\begin{Sinput}
 predictOMatic(bushideoglm3, predVals = list(ideoln=1:7, partyid = c("I", "D", "R")), type = "link")
\end{Sinput}
\begin{Soutput}
   ideoln partyid         fit
1       1       I -1.85937191
2       2       I -1.18979989
3       3       I -0.52022786
4       4       I  0.14934416
5       5       I  0.81891619
6       6       I  1.48848822
7       7       I  2.15806024
8       1       D -4.43449212
9       2       D -3.76492009
10      3       D -3.09534807
11      4       D -2.42577604
12      5       D -1.75620402
13      6       D -1.08663199
14      7       D -0.41705996
15      1       R  0.00624331
16      2       R  0.67581534
17      3       R  1.34538736
18      4       R  2.01495939
19      5       R  2.68453142
20      6       R  3.35410344
21      7       R  4.02367547
\end{Soutput}
\end{Schunk}
