[R-br] Forma "correta" e/ou mais "elegante"...

[Mauricio Morgado Oliveira]

Em anexo fragmento do arquivo de dados
Abaixo script


Base <- data.frame(read.csv("Base.csv", sep=",", header=TRUE))
Base[,"PAI"] <- NA
Base[,"PAI"][Base[,"TP_PRODUTO"] == "RM"] <-
paste("RM",Base[,"Cod_Rebanho"][Base[,"TP_PRODUTO"] == "RM"],

 Base[,"RACAPAI"][Base[,"TP_PRODUTO"] == "RM"],

 Base[,"anoN"][Base[,"TP_PRODUTO"] == "RM"],

 Base[,"NOMEPAI"][Base[,"TP_PRODUTO"] == "RM"],
                                                   sep="")
Base[,"PAI"][Base[,"TP_PRODUTO"] != "RM" & Base[,"LIVROPAI"]!="" &
Base[,"REGISTROPA"]!="" &
  Base[,"REGISTROPA"]!="0" & Base[,"REGISTRO"]!="-"] <-
paste(Base[,"LIVROPAI"][Base[,"TP_PRODUTO"] != "RM" & Base[,"LIVROPAI"]!=""
&
  Base[,"REGISTROPA"]!="" & Base[,"REGISTROPA"]!="0" &
 Base[,"REGISTRO"]!="-"], ".", Base[,"REGISTROPA"][Base[,"TP_PRODUTO"] !=
"RM" &
  Base[,"LIVROPAI"]!="" & Base[,"REGISTROPA"]!="" &
 Base[,"REGISTROPA"]!="0" & Base[,"REGISTRO"]!="-"], sep="")
Base[,"PAI"][Base[,"TP_PRODUTO"] != "RM" & Base[,"NOMEPAI"]=="" &
Base[,"TATUAGEMPA"]==""] <- paste(Base[,"Cod_Rebanho"][Base[,"TP_PRODUTO"]
!= "RM" & Base[,"NOMEPAI"]=="" & Base[,"TATUAGEMPA"]==""],

                        Base[,"RACA"][Base[,"TP_PRODUTO"] != "RM" &
Base[,"NOMEPAI"]=="" & Base[,"TATUAGEMPA"]==""],"DESC", sep="")


Em 12 de dezembro de 2012 11:22, Walmes Zeviani
<walmeszeviani em gmail.com>escreveu:

> Código não reproduzível.
>
> ==========================================================================
> Walmes Marques Zeviani
> LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
> Departamento de Estatística - Universidade Federal do Paraná
> fone: (+55) 41 3361 3573
> VoIP: (3361 3600) 1053 1173
> e-mail: walmes em ufpr.br
> skype: walmeszeviani
> twitter: @walmeszeviani
> homepage: http://www.leg.ufpr.br/~walmes
> linux user number: 531218
> ==========================================================================
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121212/20bfc988/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: Base.csv
Tipo: text/csv
Tamanho: 55592 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121212/20bfc988/attachment.csv>