R/GPA.R

In deepchocolate/pseregs: Parsing Swedish Registers

# Calculate student GPA
#' @keywords internal
blo <- function (data, subjects) {
  print(GRADES)
  #subj <- object@SUBJECTNAMES
  #if (subjects != F) subj <- subjects
  #if (subjects != F) subjects <- intersect(object@SUBJECTNAMES, subjects)
#  else subjects <- object@SUBJECTNAMES
  #subjects <- base::intersect(object@SUBJECTNAMES, subj)
  print(data)
}