acuity <- function(n) {
set.seed(n)
sample(c("person", "woman", "man", "camera", "tv"), 5, replace=FALSE)
}
#rstats
Jul 24, 2020 · 1:21 PM UTC
1
2
29
Jul 24, 2020 · 1:21 PM UTC