Hola Juan Carlos,
Quizas lo siguiente pueda serte util:
# test
R> s <- "Merluccius merluccius"
R> strsplit(s, " ")
[[1]]
[1] "Merluccius" "merluccius"
R> strsplit(s, " ")[[1]]
[1] "Merluccius" "merluccius"
R> s <- strsplit(s, " ")[[1]]
R> paste0(substr(s[1], 1, 1), ".", s[2])
[1] "M.merluccius"
# funcion
convertir <- function(s){
s <- strsplit(s, " ")[[1]]
paste0(substr(s[1], 1, 1), ".", s[2])
}
convertir <- Vectorize(convertir)
s <- c("Merluccius merluccius", "Hymenocephalus italicus")
convertir(s)
# Merluccius merluccius Hymenocephalus italicus
# "M.merluccius" "H.italicus"
Saludos,
Jorge.-
2015-01-13 8:34 GMT+11:00 JC Arronte <j_arro...@hotmail.com>:
> Hola a tod@s,
>
> Estoy tratando de abreviar nombres ci�ntificos pero no me gusta c�mo queda
> usando make.cepnames de la librer�a vegan.
>
> Me gustar�a poderlos abreviar as�,
> Hymenocephalus italicus --> H.italicus
> Merluccius merluccius --> M.merluccius
>
> He probado con varias opciones y no consigo dar con ello. Estoy casi
> seguro de que es algo relativamente sencillo, pero no doy con ello.
>
> �Alguien podr�a echarme una mano?.
>
> Un saludo y gracias
>
> Juan Carlos
>
>
>
> [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-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
