Below is a reproducible example with a test dataframe:dat<- structure(list(A = c(1.3, 1.5, 1.6, 1.2