I am using the Iris data set in this question, shown below:
> dput(iris[1:4, ]) structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6), Sepal.Width = c(3.5, 3, 3.