```r

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

XT <- xtable::xtable(mars.lm, caption = "Running time on Mars described by Height - Linear model details.", label = "SHLinReg")

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 - Linear model details. </caption>
<tr> <th>  </th> <th> Estimate </th> <th> Std. Error </th> <th> t value </th> <th> Pr(&gt;|t|) </th>  </tr>
  <tr> <td align="right"> (Intercept) </td> <td align="right"> 111.0155 </td> <td align="right"> 17.6403 </td> <td align="right"> 6.29 </td> <td align="right"> 0.0002 </td> </tr>
  <tr> <td align="right"> Height </td> <td align="right"> -0.4433 </td> <td align="right"> 0.0882 </td> <td align="right"> -5.03 </td> <td align="right"> 0.0010 </td> </tr>
   <a name=SHLinReg></a>
</table>