[R-br] Duvida String

[Sérgio Henrique almeida da silva ju]

---------- Mensagem encaminhada ----------
De: Sérgio Henrique almeida da silva ju <sergio.edfisica em gmail.com>
Data: 18 de abril de 2012 11:22
Assunto: Re: [R-br] Duvida String
Para: r-br em listas.c3sl.ufpr.br


Uma alternativa que encontrei foi


f = function(v, dat, v1=sapply(gregexpr(dat,v),"[",i=1)){
n = ifelse(v1 > 1, nchar(v), NA)
substr(v, v1,n)
}
dados1$causaa = f(dados1$linhaa, "A39")
dados1$causab = f(dados1$linhab, "A39")
dados1$causac = f(dados1$linhac, "A39")
dados1$causad = f(dados1$linhad, "A39")
dados1$causaii = f(dados1$linhaii, "A39")

dados1$causa<- with(dados1, gsub('NA', '',
paste(dados1$causaa,dados1$causab,dados1$causac,dados1$causad,dados1$causaii,
sep='')))


Como faço para buscar mais de um código? Tem que fazer um monte de comando
como esses?
Existe uma forma mais simples de fazer isso?

Segue o banco anexo


Desculpe enviar o arquivo anexo, mas é uma tentativa para vocês me
ajudarem, já que o dput não é uma boa saida!

Abraços




-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 94429486/78101651 id: 123*20942





-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 94429486/78101651 id: 123*20942
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120418/da9dbd66/attachment.html>