[R-es] Optimizar código

Fernando Sanchez
Wed, 07 Feb 2018 21:13:38 -0000

Hola a todos,Muchas gracias por las propuestas. He probado las tres y han
funcionado perfectamente.saludos,Fernando

      De: Javier Marcuzzi <javier.ruben.marcuzzi en gmail.com>
 Para: Fernando Sanchez <fernandsanche en yahoo.es>
CC: "r-help-es en r-project.org" <r-help-es en r-project.org>
 Enviado: Miércoles 7 de febrero de 2018 13:46
 Asunto: Re: [R-es] Optimizar código

Estimado Fernando Sanchez
Creo que son buenas las ayudas que te han brindado, pero aparte de estas siempre
puedes realizar una compilación de un código que no está optimizado, puedes ver
el siguiente
hipervínculo http://homepage.divms.uiowa.edu/~luke/R/compiler/compiler.pdf
Javier Rubén Marcuzzi
El 6 de febrero de 2018, 19:15, Fernando Sanchez via R-help-es <r-help-es en
r-project.org> escribió:

Hola a todos,
Os pongo aquí debajo un pequeño fragmento de código. Resulta que dispongo de una
CADENA que tiene dos columnas. Una con palabras y la otra que dice si es bueno o
malo. En otra variable tengo una LISTA. Quiero cruzar todas las palabras de la
lista con todas las de la cadena y cuando alguna coincida, que me indique en qué
fila está y también si la palabra es "buena" o "mala". El
código que os pongo más abajo funciona, pero es poco eficiente cuando las listas
son más largas.
Se os ocurre otra forma de programarlo más elegantemente en R.

CADENA_1<-c("caliente","frío",
"gordo","flaco")CADENA_2<-c("
bueno","malo","bueno","malo")
CADENA<-rbind(CADENA_1,CADENA_ 2)CADENA<-t(CADENA)LISTA<-c("
caliente","perro","flaco","
gato","coche")
for (i in 1:nrow(CADENA)) {for (j in 1:length(LISTA)) {if(toString(LISTA[j])==
toString(CADENA[i,1]))  {print(paste("fila:",j,CADENA[ i,2],sep="
"))}}}
Un saludo y muchas gracias a todos.
        [[alternative HTML version deleted]]

______________________________ _________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/ listinfo/r-help-es