thismatrix <- matrix(c("apple", "banana", "cherry", "orange","grape", "pineapple", "pear", "melon", "fig"), nrow = 3, ncol = 3)
newmatrix <- rbind(thismatrix, c("strawberry", "blueberry", "raspberry"))
# Print the new matrix
newmatrix
[,1] [,2] [,3] [1,] "apple" "orange" "pear" [2,] "banana" "grape" "melon" [3,] "cherry" "pineapple" "fig" [4,] "strawberry" "blueberry" "raspberry"