first of all my data:
dput(A22[1:10,]) structure(list(var1 = c("2.655086631421", "3.7212389963679", "5.72853363351896", "9.0820