编辑代码

for (letter in LETTERS[1:26]){
  print(letter)
}

print(factor(level))

# 设置随机数生成的种子，以确保结果可复现
set.seed(123)

# 创建三维数组，服从lambda=3的泊松分布
array_data <- array(rpois(3 * 3 * 2, lambda = 3), dim = c(3, 3, 2))

# 输出数组
print(array_data)

# 求第3维的均值
mean_third_dimension <- apply(array_data, c(1, 2), mean)

# 输出第3维的均值
print(mean_third_dimension)

# 使用levels参数直接创建factor
education <- factor(
  c("High School", "College", "Graduate", "High School"),
  levels = c("High School", "College", "Graduate")
)

# 输出factor
print(education)