grade_ph<-Vectorize(function(u){ c(c("D","C","B","A")[u>=c(0.4,0.2,0.1,0)])[1] })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.