notNA.attempted = !is.na(swipes$Overall.Credits.Attempted)

lightInd.attempted = swipes$Overall.Credits.Attempted[notNA.attempted] <= 55

medInd.attempted = (55 < swipes$Overall.Credits.Attempted[notNA.attempted]) & (swipes$Overall.Credits.Attempted[notNA.attempted] <= 120)

heavyInd.attempted = 120 < swipes$Overall.Credits.Attempted[notNA.attempted]

attemptedCategory = rep("",sum(notNA.attempted))

attemptedCategory[lightInd.attempted] = "light"

attemptedCategory[medInd.attempted] = "medium"

attemptedCategory[heavyInd.attempted] = "heavy"

attemptedCategory = ordered(attemptedCategory, levels = c("light","medium","heavy"))

notNA.earned = !is.na(swipes$Overall.Credits.Earned)

lightInd.earned = swipes$Overall.Credits.Earned[notNA.earned] <= 55

medInd.earned = (55 < swipes$Overall.Credits.Earned[notNA.earned]) & (swipes$Overall.Credits.Earned[notNA.earned] <= 120)

heavyInd.earned = 120 < swipes$Overall.Credits.Earned[notNA.earned]

earnedCategory = rep("",sum(notNA.earned))

earnedCategory[lightInd.earned] = "light"

earnedCategory[medInd.earned] = "medium"

earnedCategory[heavyInd.earned] = "heavy"

earnedCategory = ordered(earnedCategory, levels = c("light","medium","heavy"))

Do you think there is evidence to show a cause-and-effect relationship between overall credits earned and GPA?Why or why not?