Funcionalidades infravaloradas de R: los corchetes

[Ad]Mirad esta pequeña maravilla de código:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
n <- 100
dat <- data.frame(
  y = rnorm(100),
  x = sample(letters[1:3], n, replace = T)
  )

medias <- tapply(dat$y, dat$x, mean)
dat$x.trans <- medias[dat$x]

head(dat)

El corchete está manifiestamente infravalorado.