</font><font face="Arial" color="#000100" size="2">mean.C &lt;- inprod(p.strata[], C[])<br>
</font><font face="Arial" color="#000100" size="1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font><font face="Arial" color="#000100" size="2">mean.BL &lt;- inprod(p.strata[], BL[])<br>
</font><font face="Arial" color="#000100" size="1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font><font face="Arial" color="#000100" size="2">mean.BQ &lt;- inprod(p.strata[], BQ[])<br><br>
</font><font face="Arial" color="#000100" size="1">&