new <- tindR(iris, "Species")
#> [1] "Sepal.Length"
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 4.300 5.100 5.800 5.843 6.400 7.900
#> Keep this column? [y/n]
#> [1] "Sepal.Width"
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 2.000 2.800 3.000 3.057 3.300 4.400
#> Keep this column? [y/n]
#> [1] "Petal.Length"
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 1.000 1.600 4.350 3.758 5.100 6.900
#> Keep this column? [y/n]
#> [1] "Petal.Width"
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 0.100 0.300 1.300 1.199 1.800 2.500
#> Keep this column? [y/n]