Hi, try to put a reproducible example of data.
Like, this:
# paste the result (change of name of his data) dput(data[1:100, ]