search for: miwords

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))...