# Resolve intersection between two vectors
vec1 <- c("a", "b", "c", "d")
vec2 <- c("e", "f", "a", "g")
vec1 <- resolve_intersection(vec1, vec2)
# Check if variables are part of a data frame
my_data <- dummy_data(100)
var_names <- c("year", "state", "age", "test")
var_names <- my_data |> part_of_df(var_names)
# Remove doubled values
var_names <- c("year", "state", "state", "age")
var_names <- remove_doubled_values(var_names)
# Check the provided weight variable
var_names <- my_data |> check_weight("weight")
Run the code above in your browser using DataLab