R/var.lab.R

var.lab<-function(x,label){
  name<-as.character(substitute(x))
  tmp <- substitute({
    attr(x, "var.lab") <- label
    names(attr(x, "var.lab")) <- as.character(name)[3]
  })
  eval(tmp, parent.frame())   
}
Aulide81/Descriptives documentation built on May 8, 2019, 6:43 p.m.