\begin{Schunk}
\begin{Sinput}
 pm1 <- predictOMatic(m2, divider = "std.dev.", n = 5 )
 print(pm1, digits=3)
\end{Sinput}
\begin{Soutput}
$x1
             fit      lwr      upr fit$se.fit    x1       x2         x3           x4 x5
(m-2sd) 15.90005 15.20211 16.59799  0.3556653 30.14 50.46198 0.01624596 -0.005435391  A
(m-sd)  17.95194 17.48503 18.41884  0.2379302 40.22 50.46198 0.01624596 -0.005435391  A
(m)     20.00383 19.64839 20.35927  0.1811297 50.30 50.46198 0.01624596 -0.005435391  A
(m+sd)  22.05572 21.59513 22.51630  0.2347110 60.38 50.46198 0.01624596 -0.005435391  A
(m+2sd) 24.10761 23.41811 24.79710  0.3513612 70.46 50.46198 0.01624596 -0.005435391  A

$x2
             fit      lwr      upr fit$se.fit    x2       x1         x3           x4 x5
(m-2sd) 16.13013 15.43087 16.82939  0.3563376 30.48 50.30392 0.01624596 -0.005435391  A
(m-sd)  18.06718 17.59934 18.53503  0.2384095 40.47 50.30392 0.01624596 -0.005435391  A
(m)     20.00424 19.64880 20.35968  0.1811294 50.46 50.30392 0.01624596 -0.005435391  A
(m+sd)  21.94130 21.48158 22.40102  0.2342707 60.45 50.30392 0.01624596 -0.005435391  A
(m+2sd) 23.87836 23.18996 24.56676  0.3508045 70.44 50.30392 0.01624596 -0.005435391  A

$x3
             fit      lwr      upr fit$se.fit    x3       x1       x2           x4 x5
(m-2sd) 20.28135 19.59667 20.96603  0.3489078 -1.88 50.30392 50.46198 -0.005435391  A
(m-sd)  20.14272 19.68520 20.60023  0.2331447 -0.93 50.30392 50.46198 -0.005435391  A
(m)     20.00408 19.64861 20.35955  0.1811429  0.02 50.30392 50.46198 -0.005435391  A
(m+sd)  19.86544 19.39650 20.33438  0.2389676  0.97 50.30392 50.46198 -0.005435391  A
(m+2sd) 19.72681 19.02683 20.42678  0.3566999  1.92 50.30392 50.46198 -0.005435391  A

$x4
             fit      lwr      upr fit$se.fit    x4       x1       x2         x3 x5
(m-2sd) 20.36103 19.66262 21.05944  0.3559037 -2.07 50.30392 50.46198 0.01624596  A
(m-sd)  20.18322 19.71672 20.64972  0.2377237 -1.04 50.30392 50.46198 0.01624596  A
(m)     20.00542 19.64997 20.36086  0.1811334 -0.01 50.30392 50.46198 0.01624596  A
(m+sd)  19.82761 19.36507 20.29015  0.2357070  1.02 50.30392 50.46198 0.01624596  A
(m+2sd) 19.64980 18.95668 20.34293  0.3532108  2.05 50.30392 50.46198 0.01624596  A

$x5
             fit      lwr      upr fit$se.fit x5       x1       x2         x3           x4
A (70%) 20.00463 19.64919 20.36007  0.1811289  A 50.30392 50.46198 0.01624596 -0.005435391
B (30%) 20.07446 19.53116 20.61776  0.2768619  B 50.30392 50.46198 0.01624596 -0.005435391

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