
17 Jan
2012
17 Jan
'12
19:02
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))