R/asyr_gradeO2.R

grade_ox<-Vectorize(function(u){c(c("D","C","B","A")[u >=c(20,10,5,0)])[1]})
JARS3N/asyr documentation built on July 19, 2023, 9:19 p.m.