基于多个其他列对R中的多个列求和

这是我的数据示例：

row   Grade1   Grade2   Grade3   Points1   Points2   Points3
1     6        4.5      NA       7         5         4
2     NA       7        8        7         5         4

每行，我想要分数列的总和，只要成绩列中的相应结果为5.5或更高。因此，对于第1行，结果是7（只有等级1是5.5或更高，等级1对应于点1）。对于第2行，结果将是9：2级和3级为5.5或更高，因此我们将点2（5）和点3（4）相加

我怎样才能让R做这个

dat <- data.frame(Grade1 = c(6, NA), #create data
  Grade2 = c(4.5, 7), Grade3 = c(NA, 8), Points1 = c(7, 7), 
  Points2 = c(5, 5), Points3 = c(4, 4))

我们得到的是一个矩阵，其中只有等级>5.5的点存在：

tmp
  #Points1 Points2 Points3
#1       7       0      NA
#2      NA       5       4

最后求和幸存点以获得所需结果：

rowSums(tmp, na.rm = TRUE)
# [1] 7 9

rowSums(tmp, na.rm = TRUE)
# [1] 7 9