R语言课后作业

Question

题目1
### find numbers of 2 and 3 factors
set.seed(1)
n <- 100000
a <- floor(runif(n, 0, n))

题目2
### create a dichotomizing function with switch
set.seed(1)
n <- 5000
gender <- sample(c("f","m"), size=n, replace=TRUE)

Answer 1

你的问题有一些不清楚，我理解为题目1：找出a中2位和3位的数字。题目2要做什么我还是不清楚。
题目1：
factors_3 <- subset( a, a>=100&a<=999)
factors_2 <- subset( a, a>=10&a<=99)