Eu tenho várias turmas e cada uma dessas turmas são compostas por dezenas de alunos, e a cada ano esses alunos mudam de turma. Assim, gostaria de calcular o grau de agrupamento que uma turma mantem de um ano para o outro de uma forma automática. Por exemplo, no ano de 2015 uma escola possui duas turmas de 1ª série, conforme abaixo:
turma1a <- c('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J')
turma1b <- c('K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U')
E no ano de 2016 esses alunos passaram para a 2ª série no ano de 2016 indo para duas novas turmas de maneira aleatória, conforme abaixo:
turma2a <- c('A', 'B', 'C', 'D', 'E', 'F', 'K', 'L', 'M', 'N')
turma2b <- c('O', 'P', 'Q', 'R', 'S', 'T', 'U', 'G', 'H', 'I', 'J')
Dessa forma, gostaria de determinar que a turma1a
foi 60% para a turma2a
e que a outra foi 63,63% para o 2b
.
Eu tentei fazer por intersecção no R
, sabendo quais são as turmas mais semelhantes, mas eu precisaria fazer com dezenas de turmas comparadas mutuamente.
turma1a <- c('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J')
turma1b <- c('K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U')
turma2a <- c('A', 'B', 'C', 'D', 'E', 'F', 'K', 'L', 'M', 'N')
turma2b <- c('O', 'P', 'Q', 'R', 'S', 'T', 'U', 'G', 'H', 'I', 'J')
intersect(turma1a, turma2a)
[1] "A" "B" "C" "D" "E" "F"
Com esse script
, encontro os alunos em comum, mas eu precisaria que fosse automático, pois preciso analisar dezenas de turmas.