 class="sourceCode cpp"><span id="cb70-1"><a href="200_robject.html#cb70-1"></a><span class="co">// [[Rcpp::export]]</span></span>
<span id="cb70-2"><a href="200_robject.html#cb70-2"></a><span class="dt">void</span> <span class="dt">rcpp_type</span>(RObject x){</span>
<span id="cb70-3"><a href="200_robject.html#cb70-3"></a>    <span class="cf">if</span>(is&lt;NumericVector&gt;(x)){</span>
<span id="cb70-4"><a href="200_robject.html#cb70-4"></a>        <span class="cf">if</span>(Rf_isMatrix(x)) Rcout &lt;&lt