将coulmn-R中的行求和（并相乘）

我正在尝试将表中的所有行相加（并相乘），最终输出将是一行多列

我的数据如下所示：

##      Typ-1 1m Typ-1 2m Typ-2 1m Typ-2 2m Typ-3 1m Typ-3 2m Typ-4 1m
##   1        15      119        3       28        3       20        1
##   2         1       88        0       23        0       18        1
##   3         0       65        0       17        0       11        0
##   4         3       49        0       14        0        4        0
##   5         0       41        0        6        0        1        0
##   6         0       16        0        0        0        3        0
##   7         0        4        0        4        0        2        0

每一行都代表了这些物品的购买方式。例如，第一列“Typ-1 1m”中的第四行表示我们销售了12件商品-->（4*3）

我希望我的最终输出是跨所有列的，作为每行的摘要，但是行数必须首先与行中的值相乘

第一个coulmn中的输出如下：（15*1）+（1*2）+（3*4）=29

我不知道如何在R中解决这个问题

---

我只打印了一张表。。我会感谢你的帮助

我们将“dat”与该行的

行相乘，得到列和（
colSums
）

colSums(dat*row(dat))
#   Typ.1_1m Typ.1_2m Typ.2_1m Typ.2_2m Typ.3_1m Typ.3_2m Typ.4_1m 
#      29     1015        3      239        3      142        3