\begin{Schunk}
\begin{Sinput}
 options(scipen = 10)
 p1 <- predictOMatic(glm1, predVals = c(x2 = "seq"), n = 10)
 p2 <- predictOMatic(glm2, predVals=c(x2 = "seq"), n = 10)
 cbind(p1, p2)
\end{Sinput}
\begin{Soutput}
          x2          fit        x2            fit
1    0.00000 0.0004211702   0.00000 0.000003170302
2   16.66667 0.0029945053  16.66667 0.000369271178
3   33.33333 0.0209611159  33.33333 0.012708304943
4   50.00000 0.1324087151  50.00000 0.136721920172
5   66.66667 0.5210494822  66.66667 0.517818373508
6   83.33333 0.8857780288  83.33333 0.881897144412
7  100.00000 0.9822314635 100.00000 0.989947138628
8  116.66667 0.9974686620 116.66667 0.999734108489
9  133.33333 0.9996441153 133.33333 0.999997928327
10 150.00000 0.9999500592 150.00000 0.999999995374
\end{Soutput}
\end{Schunk}
