wulab/Student Grading.R

Last active May 10, 2022 20:07

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/wulab/476f1e0957e4ebf8a90a87af8e11567e.js"></script>
Save wulab/476f1e0957e4ebf8a90a87af8e11567e to your computer and use it in GitHub Desktop.

Download ZIP

Student grading without if/else or for loop

Raw

Student Grading.R

	grade <- function(score) {
	levels <- c("F", "D", "C", "B", "A")
	return( levels[(score>80)+(score>60)+(score>40)+(score>20)+(score>0)] )
	}

Author

wulab commented May 10, 2022

> grade( c(64, 52, 83, 84, 57, 98, 79, 88, 87, 61) )
 [1] "B" "C" "A" "A" "C" "A" "B" "A" "A" "B"

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment