x <- matrix(as.character(rnorm(100)), ncol = 10)
typeof(x)

apply(x,
      MARGIN = 2,
      FUN = function(i) {
          sum(as.numeric(i))
      })

À disposição.

Walmes.