Replace temp <- strsplit(vec,NULL) By temp <- lapply(strsplit(vec,NULL), as.integer) -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121213/f4c225df/attachment.html>