tests/testthat/setup.R

In JonasMoss/rankr: Estimation and inference for variants of Kendall's tau

set.seed(313)

x1 <- sort(rnorm(10))
y1 <- c(rep(1, 3), rep(2, 3), rep(3, 4)) + rbinom(10, 10, 0.1)

x2 <- c(rep(1, 2), rep(2, 2), runif(4, 3, 4), rep(5, 2))
y2 <- c(rep(1, 3), rep(2, 3), rep(3, 4)) + rbinom(10, 10, 0.1)

x3 <- c(rep(1, 2), rep(2, 3), c(3, 4, 5, 5, 5))
y3 <- c(rep(1, 3), rep(2, 3), rep(3, 4))

x4 <- c(rep(1, 3), rep(2, 3), c(3, 4, 5, 5))
y4 <- c(rep(1, 3), rep(2, 3), rep(3, 4))

x5 <- c(rep(1, 3), rep(2, 3), c(3, 4, 4, 4))
y5 <- c(rep(1, 3), c(2, 3, 3), c(3, 4, 4, 5))

x6 <- c(rep(1, 3), rep(2, 3), c(5, 5, 5, 5))
y6 <- c(rep(1, 3), rep(2, 3), c(3, 4, 5, 6))

x7 <- c(rep(1, 3), rep(2, 3), rep(3, 3))
y7 <- c(1, 2, 3, 3, 2, 1, 2, 1, 3)

x8 <- 1:8
y8 <- c(1, 2, 3, 4, 4, 3, 2, 1)

x9 <- c(rep(1, 3), rep(2, 3), c(3, 4, 5, 5))
y9 <- c(rep(1, 3), rep(2, 3), rep(3, 4))

x10 <- c(rep(1, 3), rep(2, 3), c(3, 4, 5, 5), c(6,7,8))
y10 <- c(rep(1, 3), rep(2, 3), rep(3, 4), c(4,5,6))

x11 <- c(rep(1, 3), rep(2, 3), rep(3, 4))
y11 <- c(rep(1, 3), rep(2, 3), rep(3, 4))


x12 <- c(rep(1, 10), rep(2, 10))
y12 <- c(rep(1, 7), rep(2, 3), rep(1, 3), rep(2, 7))