So, I\'m making a function like
example <- function(x, y){ z <- data.frame("variable name" = y, "Quantity of 1" = sum(x==1, na.r