[R-br] Como eu retiro so os 3 primeiro caracteres dos objetos de um Vetor?

[Benilton Carvalho]

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