x <- c(5, 1, 3, 2, 4, 4, 7, 1, 3, 3, 2, 2, 1, 4, 3, 1, 4, 1, 3, 4, 3, 1, 4, 0, 4, 1, 1, 7, 0, 3)
y <- c(0, 1, 4, 1, 4, 1, 3, 1, 0, 0, 1, 0, 0, 3, 0, 4, 1, 2, 2, 2, 3, 6, 4, 0, 1, 3, 4, 2, 2, 2)