将数据帧的两行相加

将两行相加,覆盖第二行,然后删除第一行。

combine_rows <- function(data, row1, row2) {
  data[row2, ] <- data[row1, ] + data[row2, ]
  data[-row1, ]
}

# test using builtin data frame, BOD

BOD
##   Time demand
## 1    1    8.3
## 2    2   10.3
## 3    3   19.0
## 4    4   16.0
## 5    5   15.6
## 6    7   19.8

combine_rows(BOD, 2, 3)
##   Time demand
## 1    1    8.3
## 3    5   29.3   <-- this row is the sum of original rows 2 and 3
## 4    4   16.0
## 5    5   15.6
## 6    7   19.8