Wellicht is de predict() functie wat je zoekt?
Als je de predicted scores aan de dataset wilt toevoegen:
burnout$pred <- predict(Interceptmodel)
Als je de predicted scores in een nieuw object wilt opslaan:
pred <- predict(Interceptmodel)
Om dan de hoogste waarde te vinden:
max(burnout$pred)
Als je de [N] hoogste waarden wilt vinden, bijvoorbeeld de 3 hoogste, dan:
sort(burnout$pred, decreasing = TRUE)[1:3]