R/tidyNumberApplicants.R

In europace-privatkredit/tidyPkuData: Tidy Europace loan data

#' number of applicants
#'
#' @description This function calculates the number of applicants per application
#' @param df The name of the dataframe you want to manipulate
#' @return datatframe, tibble
#' @keywords applicants
#' @import dplyr
#' @export
#' @examples tidyNumberApplicants(df = df)

tidyNumberApplicants <- function(df) {
  df <- df %>%
    dplyr::mutate(anzahlAntragsteller = as.factor(ifelse(is.na(antragsteller2geburtsdatum), 1, 2)))

  return(df)
}