Разделите 2 строки, чтобы создать новую строку

Question

Чрезвычайно простой вопрос, который был задан до , но я не понимаю, какую ошибку я получаю.

Все, что я хочу сделать, это разделить две строки в таблице ( не датафрейм) и создать новую строку внизу:

           a     b       c       d           e   Total
 A         460      1063    1680    2535     76  5814
 B         554      4974    3052    7094     239 15913
 Total     1014     6037    4732    962      315 21727

    table[4,] <- table[1,] / table[3,] 

Error in `[<-`(`*tmp*`, 4, , value = ...  : 
  subscript out of bounds

Answer 1

Использование набора данных радужной оболочки в качестве примера для добавления строк 1 и 2:

attach(iris)
tab<-table(iris$Species,iris$Petal.Width)
new_row <- tab[1,] + tab[2,]
tab<-rbind(tab,new_row)

Результаты:

> tab
           0.1 0.2 0.3 0.4 0.5 0.6 1 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2 2.1 2.2 2.3 2.4 2.5
setosa       5  29   7   7   1   1 0   0   0   0   0   0   0   0   0   0 0   0   0   0   0   0
versicolor   0   0   0   0   0   0 7   3   5  13   7  10   3   1   1   0 0   0   0   0   0   0
virginica    0   0   0   0   0   0 0   0   0   0   1   2   1   1  11   5 6   6   3   8   3   3
new_row      5  29   7   7   1   1 7   3   5  13   7  10   3   1   1   0 0   0   0   0   0   0