Displaying 1 result from an estimated 1 matches for "miwords".
2023 Mar 20
0
str_replace por orden de aparición en una cadena.
...= 5 = 0,7 si p1 == 5 = 0,7',
> 'si p1 == 6 == 0 si p1 == 6 = 0',
> 'si p1 == 7 == no aplica si p1 == 7 = no aplica'
> )
>
> # Función para reemplazar el último "==" por un "=" en una cadena
> replace_last_equal <- function(s) {
> miwords <- unlist(strsplit(s, "=="))
> paste0(paste(miwords[1:(length(miwords) - 1)], collapse = '=='), '=',
> miwords[length(miwords)])
> }
>
> # Aplicar la función a cada elemento de la cadena
> cadenew <- as.vector( sapply(cadena, replace_last_equal))...