Parte 1)
f = function(x) gsub('(\\w{1,3}).*', '\\1', x)
f(teste)
Parte 2)
g = function(x) gsub('(\\w{1}).*\\.(\\w{1,2}).*', '\\1\\2', x)
g(teste)
Parte 3)
f(g(teste2))
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
