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