---------- 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.brUma 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