[R-es] Optimizar código

[Fernando Sanchez]

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




   
	[[alternative HTML version deleted]]