<div>Gostaria de alguma dica (sugestão) para escrever de forma "correta" e/ou mais "elegante".</div><div>Segue abaixo minha antiga programação no sas e no R (tentei anteriomente dentro de um for (loop), </div>

<div>mas fica muito demorado).</div><div><br></div><div>Att,</div><div><br></div><div>Mauricio M. Oliveira</div><div><br></div><div>Programação no SAS:</div><div><br></div><div>  if TP_PRODUTO='RM'</div><div>    <span style="white-space:pre-wrap">       </span>then pai=COMPRESS('RM'||Cod_Rebanho||racapai||ano||nomepai,' '); </div>

<div>  else if livropai^=' ' & registropa^=' ' & registropa^='0' & registropa^='-'</div><div>    then pai=COMPRESS(livropai||'.'||registropa,' ');</div><div>  else if nomepai=' ' & tatuagempa=' ' </div>

<div>then do;</div><div>    pai=COMPRESS(Cod_Rebanho||raca||ano||"DESC",' '); TP_PRODUTO='RM'; end;</div><div>  else </div><div>     pai=COMPRESS(Cod_Rebanho||racapai||tatuagempa||nomepai,' '); </div>

<div><br></div><div>Script no R:</div><div><br></div><div>Base[,"PAI"][Base[,"TP_PRODUTO"] == "RM"] <- paste("RM",Base[,"Cod_Rebanho"][Base[,"TP_PRODUTO"] == "RM"], Base[,"RACAPAI"] </div>

<div>   [Base[,"TP_PRODUTO"] == "RM"], Base[,"anoN"][Base[,"TP_PRODUTO"] == "RM"], Base[,"NOMEPAI"][Base[,"TP_PRODUTO"] == "RM"], sep="")</div>

<div>Base[,"PAI"][Base[,"TP_PRODUTO"] != "RM" & Base[,"LIVROPAI"]!="" & Base[,"REGISTROPA"]!="" & Base[,"REGISTROPA"]!="0" & Base[,"REGISTRO"]!=</div>
<div>   "-"] <- paste(Base[,"LIVROPAI"][Base[,"TP_PRODUTO"] != "RM" & Base[,"LIVROPAI"]!="" & Base[,"REGISTROPA"]!="" & Base[,"REGISTROPA"]!="0" &</div>
<div>   Base[,"REGISTRO"]!="-"], ".", Base[,"REGISTROPA"][Base[,"TP_PRODUTO"] != "RM" & Base[,"LIVROPAI"]!="" & Base[,"REGISTROPA"]!="" &    </div>
<div>   Base[,"REGISTROPA"]!="0" & Base[,"REGISTRO"]!="-"], sep="")</div>
<div>Base[,"PAI"][Base[,"TP_PRODUTO"] != "RM" & Base[,"NOMEPAI"]=="" & Base[,"TATUAGEMPA"]==""] <- paste(Base[,"Cod_Rebanho"]</div>
<div>   [Base[,"TP_PRODUTO"] != "RM" & Base[,"NOMEPAI"]=="" & Base[,"TATUAGEMPA"]==""], Base[,"RACA"][Base[,"TP_PRODUTO"] != "RM" &</div>
<div>   Base[,"NOMEPAI"]=="" & Base[,"TATUAGEMPA"]==""],"DESC", sep="")</div>