x <- matrix(as.character(rnorm(100)), ncol = 10) typeof(x) apply(x, MARGIN = 2, FUN = function(i) { sum(as.numeric(i)) }) À disposição. Walmes. -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170301/60640290/attachment.html>