R/oruns_test.R

Defines functions print.r4pde.oruns_test oruns_test

Documented in oruns_test

#' Runs Test
#'
#' Perform a runs test on the input data to test for clustering or randomness.
#'
#' @param x A numeric vector representing the input data
#' @examples
#' oruns_test(c(1, 0, 1, 1, 0, 1, 0, 0, 1, 1))
#'
#' @importFrom stats pnorm
#' @return an `r4pde.oruns` object.
#'
#' An `r4pde.oruns` object is a `list` containing:
#'   * U, number of runs,
#'   * EU, expected number of runs,
#'   * sU, standard deviation of the expected number of runs
#'   * Z, Z-score of the observed number of runs,
#'   * pvalue, the p-value of the Z-score, and
#'   * result, the test result of either "aggregation or clustering" or "randomness"
#'
#' @export
#' @family Spatial analysis
oruns_test <- function(x) {
  # S is the input data
  S <- x

  # U is the number of runs in the data
  U = max(cumsum(c(1, diff(S) != 0)))

  # m is the sum of the input data
  m = sum(S)

  # N is the length of the input data
  N = length(S)

  # EU is the expected number of runs
  EU = 1 + (2 * m * (N - m) / N)

  # sU is the standard deviation of the expected number of runs
  sU = sqrt(2 * m * (N - m) * (2 * m * (N - m) - N) / (N ^ 2 * (N - 1)))

  # Z is the Z-score of the observed number of runs
  Z = (U - EU) / sU

  # pvalue is the p-value of the Z-score
  pvalue <- (1 - pnorm(abs(Z), lower.tail = TRUE))

  result <- ifelse(Z < -1.64,
                   c("aggregation or clustering"),
                   c("randomness"))

  out <- list(U = U, EU = EU, sU = sU, Z = Z, pvalue = pvalue, result = result)
  class(out) <- union("r4pde.oruns_test", class(out))
  return(out)
}

#' Prints r4pde.oruns Object
#'
#' Custom [print()] method for `r4pde.oruns_test` objects.
#'
#' @param x a `r4pde.oruns_test` object
#' @param ... ignored
#' @export
#' @noRd

print.r4pde.oruns_test <- function(x, ...) {
  message(
    "Ordinary Runs Test of Data Sequence:\n",
    "-------------------------------------\n",
    sprintf("Total Number of Runs (U): %d\n", x$U),
    sprintf("Expected Number of Runs (EU): %.2f\n", x$EU),
    sprintf("Standard Deviation of Runs (sU): %.2f\n", x$sU),
    sprintf("Z-score: %.2f\n", x$Z),
    sprintf("P-value: %.4f\n\n", x$pvalue),
    "Interpretation:\n",
    sprintf("Based on the Z-score, the sequence exhibits '%s'.\n", x$result)
  )
  invisible(x)
}

Try the r4pde package in your browser

Any scripts or data that you put into this service are public.

r4pde documentation built on July 2, 2025, 5:09 p.m.