Using RStudio v1.3.1093, R v.4.0.2 on Windows 10.
I working on a homework problem, and given a dataset:
x <- cbind(c(8, 8, 14, 14, 14, 16, 16, 16, 1