[R-es] Optimizar código
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@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] CRON JOBS
Hola No conozco Rserver, me parece que es de Windows y no se si exista versión linux, si lo haces con cron en linux no deberías tener problema. Saludos De: R-help-es en nombre de Jesús Para Fernández Enviado: martes, 6 de febrero de 2018 01:15:12 p. m. Para: r-help-es@r-project.org Asunto: [R-es] CRON JOBS Buenas, Voy a dejar un programa en produccion en un servidor, el cual tiene que ejecutarse cada minuto, y si se reinicia el servidor o lo uqe sea, que se ponga a trabajar directamete. �R server permite hacer eso, o tengo que generar un script que se ejecute desde un cronjob del servidor? Desde mi ignorancia, considero que la segunda opcion es la m�s robusta frente a fallos. Un saludo Jes�s [[alternative HTML version deleted]] [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Optimizar código
Hola,
Esta es una forma...
> str_1 <- c("caliente","frío","gordo","flaco")
> str_2 <- c("bueno","malo","bueno","malo")
> str_3 <- cbind(str_1, str_2)
>
> l_val <- c("caliente","perro","flaco","gato","coche")
>
> row_god <- which(l_val %in% str_3[,1], arr.ind = TRUE )
> row_god
[1] 1 3
Saludos,
Carlos Ortega
www.qualityexcellence.es
El 6 de febrero de 2018, 23:15, Fernando Sanchez via R-help-es <
r-help-es@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@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
