Como sugerido no guia de postagem, sinta-se a vontade para colocar seu
arquivo em algum servico como http://www.datafilehost.com/ , assim
quem esta' tentando te ajudar tem a chance de entender mais
rapidamente qual eh o problema.

O que vc quer dizer com "mais de um codigo"?

Em teoria, vc precisa apenas de um wrapper para:

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

mas sem entender o que exatamente vc quer dizer, minha ajuda acaba por aqui.

b

2012/4/18 Sérgio Henrique almeida da silva ju <sergio.edfisica@gmail.com>:

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

> _______________________________________________
> R-br mailing list
> R-br@listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
> mínimo reproduzível.
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.