x <- factor(c("yes", "yes", "no", "yes", "no")), > x <- factor(factor("yes", "no", "no", "yes", "no")), > x <- factor(factor("yes", "yes", "no", "yes", "no"))" /> x <- fact(c("yes", "yes", "no", "yes", "no")), > x <- factor(c("yes", "yes", "no", "yes", "no")), > x <- factor(factor("yes", "no", "no", "yes", "no")), > x <- factor(factor("yes", "yes", "no", "yes", "no"))" /> x <- factor(c("yes", "yes", "no", "yes", "no")), > x <- factor(factor("yes", "no", "no", "yes", "no")), > x <- factor(factor("yes", "yes", "no", "yes", "no"))" />