# NOT RUN {
df <- data.frame(sex=sample(c('male', 'female'), 100, replace = TRUE))
df$race <- sample(1:6, 100, replace = TRUE)
df <- add_variable(df, "nhsid")
df <- add_variable(df, "dob", age_dependency = FALSE)
df <- add_variable(df, "firstname", country = "uk", gender_dependency= TRUE, age_dependency = TRUE)
df <- add_variable(df, "lastname", country = "uk", gender_dependency= TRUE, age_dependency = TRUE)
df$firstname <-as.character(df$firstname)
df$lastname <-as.character(df$lastname)
replace_lastname(df, country = 'uk')
replace_lastname(df, country = 'us', race_dependency =TRUE)
# }
Run the code above in your browser using DataLab