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)
df <- data.frame( ID = 1:10, Name = LETTERS[1:10], Score = sample(50:100, 10, replace = TRUE) ) n <- 10 random_rows <- df[sample(nrow(df), n), ] print(random_rows)