```r

# xtable(mars.anova.eye, caption = "Running time on Mars described by Height - F test details.", label = "SHFTEST")

XT <- xtable::xtable(mars.anova.eye, caption = "Running time on Mars described by Height - F test details.", label = "SHFTEST")

print(XT, type = "html")
```

<!-- html table generated in R 4.1.2 by xtable 1.8-4 package -->
<!-- Wed Dec 15 11:21:25 2021 -->
<table border=1>
<caption align="bottom"> Running time on Mars described by Height - F test details. </caption>
<tr> <th>  </th> <th> Df </th> <th> Sum Sq </th> <th> Mean Sq </th> <th> F value </th> <th> Pr(&gt;F) </th>  </tr>
  <tr> <td> Height </td> <td align="right"> 1 </td> <td align="right"> 63.56 </td> <td align="right"> 63.56 </td> <td align="right"> 25.28 </td> <td align="right"> 0.0010 </td> </tr>
  <tr> <td> Residuals </td> <td align="right"> 8 </td> <td align="right"> 20.12 </td> <td align="right"> 2.51 </td> <td align="right">  </td> <td align="right">  </td> </tr>
   <a name=SHFTEST></a>
</table>