addAttr <- function(dat) {
  attr(dat, "x") <- 1
  dat
}