R/homework-1-function.R

In Violettttta/bis620:

#' @title Calculate the number of missing values
#'
#' @description Return the sum of all the missing values present in its arguments.
#' @param x an R object to be tested: atomic vectors, lists, pairlists, and NULL.
#' @return The sum of the number of the missing values.
#' @export
num_na <- function(x) {
  sum(is.na(x))
}

#' @title Get the status of a given response
#'
#' @description Return the status of a given response.
#' @param x a character: the response of the patient.
#' @return The status of a given response.
#' @export
status <- function(x) {
  if ((x == "Progressive disease") || (x == "Stable disease")) {
    print("Disease")
  }
  else if ((x == "Partial response") || (x == "Complete response")) {
    print("Response")
  } else {
    print("ERROR")
  }
}