column.apply(x, FUN, ...) row.apply(x, FUN, ...)
x <- cbind(fts(),fts()) ## returns vector x.col.sum <- column.apply(x,sum) ## returns fts x.row.sum <- row.apply(x,sum)
Run the code above in your browser using DataLab