[R-br] loop em nchar

Caros, etou tentando obter o número de caracteres para cada célula para descobrir se trata-se de CNPJ ou CPF, mas acho que meu looping está com problemas pois não para de computar e não me retorna nada. O que está errado? for (i in CPF_CNPJ) { receitas2002$len = nchar(CPF_CNPJ) } Daniel