library(sate)
example <- data.frame(Race = sample(x=c("Black or African American", "Other"),
size=10, replace=TRUE),
Education = sample(x=c("Bachelor's degree (for example: BA, AB, BS)",
"Other"), size=10, replace=TRUE),
Household.Income = sample(x=c("$70,000-$79,999", "Other"),
size=10, replace=TRUE),
Age = sample(x=18:80, size=10, replace=TRUE),
Gender = sample(x=c("Woman", "Man", "Prefer not to say"),
size=10, replace=TRUE),
Ethnicity = sample(x=c("No, not of Hispanic, Latino, or Spanish origin",
"Other"), size=10, replace=TRUE))
dataset.encoded <- encode.cloud.respondent.variables(dataset=example)
Run the code above in your browser using DataLab