Form Row and Column Sums

rowSums_(x)

colSums_(x)

Arguments

x

Symbolic matrix

Examples

if (has_sympy()) {
  X <- matrix_(paste0("x_",c(1,1,1,1,2,2,2,2,3,4,3,4)), nrow=4)
  rowSums_(X)
  colSums_(X)
}
#> c: [4⋅x₁  4⋅x₂  2⋅x₃ + 2⋅x₄]