R/calculate_na_percentage.R

In vvmover: Read and Write Data

#' Calculate NA Percentage
#'
#' This function calculates the percentage of NA values in a given vector. It also includes a margin of 10%.
#'
#' @param x A numeric vector.
#' @param ... Additional arguments (not used).
#' @return A numeric value representing the percentage of NA values in the vector.
#' @export
calculate_na_percentage <- function(x, ...) {
  # Calculate the percentage of NA values
  na_percentage <- sum(is.na(x)) / length(x)

  # Add a margin of 10%
  na_percentage <- na_percentage + na_percentage * 0.10

  # Add a correction based on the size of the data
  correction <- (1 - 1/log(length(x))) * 0.10
  na_percentage <- na_percentage + correction

  # Return the result in percentage
  return(na_percentage * 100)
}