<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:monospace,monospace">x <- matrix(as.character(rnorm(100)), ncol = 10)<br>typeof(x)<br><br>apply(x,<br>      MARGIN = 2,<br>      FUN = function(i) {<br>          sum(as.numeric(i))<br>      })<br></span><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​<br></div>