\begin{Schunk}
\begin{Sinput}
 pm1 <- predictOMatic(m2)
 print(pm1, digits=3)
\end{Sinput}
\begin{Soutput}
$x1
         fit       x1       x2         x3           x4 x5
10% 17.34976 37.26175 50.46198 0.01624596 -0.005435391  A
30% 18.90711 44.91234 50.46198 0.01624596 -0.005435391  A
50% 19.98630 50.21390 50.46198 0.01624596 -0.005435391  A
70% 21.08131 55.59319 50.46198 0.01624596 -0.005435391  A
90% 22.57827 62.94707 50.46198 0.01624596 -0.005435391  A

$x2
         fit       x2       x1         x3           x4 x5
10% 17.51416 37.61791 50.30392 0.01624596 -0.005435391  A
30% 19.03669 45.47005 50.30392 0.01624596 -0.005435391  A
50% 20.00466 50.46217 50.30392 0.01624596 -0.005435391  A
70% 21.03638 55.78305 50.30392 0.01624596 -0.005435391  A
90% 22.40204 62.82619 50.30392 0.01624596 -0.005435391  A

$x3
         fit          x3       x1       x2           x4 x5
10% 20.17664 -1.16247687 50.30392 50.46198 -0.005435391  A
30% 20.07794 -0.48610272 50.30392 50.46198 -0.005435391  A
50% 20.00927 -0.01557875 50.30392 50.46198 -0.005435391  A
70% 19.93530  0.49129097 50.30392 50.46198 -0.005435391  A
90% 19.82495  1.24747954 50.30392 50.46198 -0.005435391  A

$x4
         fit          x4       x1       x2         x3 x5
10% 20.23111 -1.31742751 50.30392 50.46198 0.01624596  A
30% 20.09242 -0.51397785 50.30392 50.46198 0.01624596  A
50% 19.99537  0.04817247 50.30392 50.46198 0.01624596  A
70% 19.91653  0.50492408 50.30392 50.46198 0.01624596  A
90% 19.78206  1.28387477 50.30392 50.46198 0.01624596  A

$x5
             fit x5       x1       x2         x3           x4
A (70%) 20.00463  A 50.30392 50.46198 0.01624596 -0.005435391
B (30%) 20.07446  B 50.30392 50.46198 0.01624596 -0.005435391

attr(,"flnames")
[1] "x1" "x2" "x3" "x4" "x5"
\end{Soutput}
\end{Schunk}
