\begin{Schunk}
\begin{Sinput}
 predictOMatic(m1, predVals = list("x1" = c(0, 10, 20, 30, 40)), se.fit = TRUE, interval = "confidence")
\end{Sinput}
\begin{Soutput}
  x1        fit        lwr      upr fit$se.fit
1  0 -1.0800436 -3.0955963 0.935509  1.0156642
2 10  0.8916973 -0.5613787 2.344773  0.7322247
3 20  2.8634382  1.9246751 3.802201  0.4730554
4 30  4.8351792  4.2252686 5.445090  0.3073422
5 40  6.8069201  6.0429997 7.570841  0.3849498
\end{Soutput}
\end{Schunk}
