R/lin_alg.R
rowSums_colSums.Rd
Form Row and Column Sums
rowSums_(x) colSums_(x)
Symbolic matrix
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₄]