Measure of Spearman Correlation

sc_monotonic(x, y)

Arguments

x

numeric vector

y

numeric vector

Value

double

Examples

  require(ggplot2)
  require(tidyr)
  require(dplyr)
  data(anscombe)
  anscombe_tidy <- anscombe %>%
  pivot_longer(cols = everything(),
    names_to = c(".value", "set"),
    names_pattern = "(.)(.)")
  ggplot(anscombe_tidy, aes(x=x, y=y)) +
    geom_point() +
    facet_wrap(~set, ncol=2, scales = "free")

  sc_monotonic(anscombe$x1, anscombe$y1)
#> [1] 0.8181818
  sc_monotonic(anscombe$x2, anscombe$y2)
#> [1] 0.6909091
  sc_monotonic(anscombe$x3, anscombe$y3)
#> [1] 0.9909091
  sc_monotonic(anscombe$x4, anscombe$y4)
#> [1] 0.5