<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
</head>
<body dir="ltr">
<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Helvetica,sans-serif;" dir="ltr">
<p>hello please can any one help me to change that function to rcpp or cxxfunction please
<br>
</p>
<p></p>
<div>    for(i in 1:length(datafi$p)){<br>
    if(datafi$A[i] != "STOP"){<br>
        datafi$tran[i]=matt[[datafi$p[i+1]]][datafi$A[i],datafi$A[i+1]]<br>
     }<br>
    }</div>
<br>
<p></p>
</div>
</body>
</html>