set.seed(1)
data1 = data.frame(t(replicate(20, diff(c(0, sort(runif(2)), 1)))))
names(data1)=c("Repeat", "Advance", "GoBack")
data1$Grade = rep(1:10,2)
data1$Size=rep(0:1,each=10)
data2 = data.frame("Student" = c(1:1000), #STUDENT ID
"Grade"=c(sample(1:10,1000,r=T)), #STUDENT GRADE
"Size"=c(sample(0:1,1000,r=T))) # SIZE OF CLASSROOM IS < 40
'data2' равно нашему текущему числу студентов.
'data1' равно исторической доле учащихся, которые должны повторить оценку, продвижение или возврат к предыдущему классу.
Я буду sh, чтобы начать тип симуляции, с которого нужно начинать «data2» и примените соответствующие вероятности перехода, чтобы получить представление о том, сколько учеников, как мы ожидаем, будут повторять, повышать и возвращать оценку.
Я не имею ни малейшего понятия о том, как поступить, но если у вас появятся какие-либо мысли, я приложу все усилия, чтобы претворить их в жизнь.