var <- function(...) UseMethod("var")