Corrigindo o código anterior:

Onde está:

data.frame(descr, code=LETTERS[seq(lvl)])

Utilize:

data.frame(descr, code=LETTERS[seq(descr)])

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]