<br><br><div class="gmail_quote">---------- Mensagem encaminhada ----------<br>De: <b class="gmail_sendername">Sérgio Henrique almeida da silva ju</b> <span dir="ltr"><<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>></span><br>
Data: 18 de abril de 2012 11:22<br>Assunto: Re: [R-br] Duvida String<br>Para: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br><br><br><div>Uma alternativa que encontrei foi</div>
<div> </div><div>
</div><div>f = function(v, dat, v1=sapply(gregexpr(dat,v),"[",i=1)){<br>n = ifelse(v1 > 1, nchar(v), NA) <br>substr(v, v1,n)<br>}<br></div><div>dados1$causaa = f(dados1$linhaa, "A39")</div>
<div>dados1$causab = f(dados1$linhab, "A39")</div><div>dados1$causac = f(dados1$linhac, "A39")</div><div>dados1$causad = f(dados1$linhad, "A39")</div><div>dados1$causaii = f(dados1$linhaii, "A39")</div>
<div> </div><div>dados1$causa<- with(dados1, gsub('NA', '', paste(dados1$causaa,dados1$causab,dados1$causac,dados1$causad,dados1$causaii, sep='')))</div><div> </div><div> </div><div>Como faço para buscar mais de um código? Tem que fazer um monte de comando como esses? </div>
<div>Existe uma forma mais simples de fazer isso?</div><div> </div><div>Segue o banco anexo</div><div> </div><div> </div><div>Desculpe enviar o arquivo anexo, mas é uma tentativa para vocês me ajudarem, já que o dput não é uma boa saida!</div>
<div> </div><div>Abraços</div><div><div><div> </div><div> </div><div><br><br>-- <br>Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br>
<a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 94429486/78101651 id: 123*20942<br><br><br>
</div>
</div></div></div><br><br clear="all"><br>-- <br>Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 94429486/78101651 id: 123*20942<br><br><br>