numbers1 <- c(1, 2, 3, 4, 5)
# Assignment gives an independent copy
numbers2 <- numbers1
numbers1[1] <- 10
# numbers1 = 10 2 3 4 5
# numbers2 = 1 2 3 4 5
# Nested lists are copied whole as well
rows1 <- list(c(1, 2), c(3, 4))
rows2 <- rows1
rows1[[1]][1] <- 100
cat("numbers1 =", numbers1, "\n")
cat("numbers2 =", numbers2, "\n")
str(rows1)
str(rows2)