Playing around with R matrices

matrixmanip.R

(m = matrix(1:10, nrow = 5, byrow = TRUE))

m[[2]]
m[[7]]
m[[10]] <- 11L
rbind(m, c(11,12))

# Add names 
i <- 0L
dimnames(m) <- lapply(c("x", "y"), function(d) {
      i <<- i + 1
      paste0(d, seq(dim(m)[i]))
})
m

m["y1"]
(my1 <- m[, "y1"])
class(my1)
m[["y1"]]  # ERROR