lass="co"># Extract a single volume at time point 10</span></span>
<span id="cb3-12"><a href="#cb3-12" tabindex="-1"></a>vol_t10 <span class="ot">&lt;-</span> vec_4d[,,,<span class="dv">10</span>]</span>
<span id="cb3-13"><a href="#cb3-13" tabindex="-1"></a><span class="fu">cat</span>(<span class="st">&quot;Volume at t=10 dimensions:&quot;</span>, <span class="fu">dim</span>(vol_t10), <span class="st">&quot;</span><span class="sc">\n</span><span class="st">&quot;</span>)</span>
<span id="cb3-14"><a href="#c