id <- c(1:10)

name <- c("John ", "Rob ", "Rachel ", "Christy ", "Johnson ", "Candace ", "Carlson ", "Pansy ", "Darius ", " Garcia")

job_title <- c("Professional", "Programmer", "Management", "Clerical", "Developer", "Programmer", "Management", "Clerical", "Developer", "Programmer")

employee <- data.frame(id, name, job_title)

print(employee)