我知道这可能是一个简单的解决办法.我希望在下面的两个函数中添加一个循环.我在循环方面有很多麻烦.我认为基本 struct 就在那里;尽管我没有看到它.RptYr是一个四位数的年份(例如,2023年).
AcaS_Sem <- function(RptYr) {
AcaS_1 <- paste0("Spring", " ", RptYr - 1)
AcaS_2 <- paste0("Fall", " ", RptYr - 2)
AcaS_3 <- paste0("Summer", " ", RptYr - 2)
AcaS_comb <- c(AcaS_1, AcaS_2, AcaS_3)
print(AcaS_comb)
}
第二个函数是
Enroll_Dem <- function(RptYr) {
Enroll_Dem_1 <- paste0("Fall", " ", RptYr)
Enroll_Dem_2 <- paste0("Summer", " ", RptYr)
Enroll_Dem_3 <- paste0("Spring", " ", RptYr)
Enroll_Dem_4 <- paste0("Fall", " ", RptYr - 1)
Enroll_Dem_5 <- paste0("Summer", " ", RptYr - 1)
Enroll_Dem_6 <- paste0("Spring", " ", RptYr - 1)
Enroll_Dem_7 <- paste0("Fall", " ", RptYr - 2)
Enroll_vec <- c(Enroll_Dem_1, Enroll_Dem_2, Enroll_Dem_3, Enroll_Dem_4,
Enroll_Dem_5, Enroll_Dem_6, Enroll_Dem_7)
print(Enroll_vec)
}
任何见解都将是最有帮助的.提前谢谢您!