---------- Mensagem encaminhada ----------
De: Sérgio Henrique almeida da silva ju <sergio.edfisica@gmail.com>
Data: 18 de abril de 2012 11:22
Assunto: Re: [R-br] Duvida String
Para: r-br@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