x <- c(7.4893, 7.0673, 1.0401, 4.7627, 0.7092, -1.2345, -0.1234, 0.0000); x

x%%1

x%%1 - (x<0) ### para tratamento dos valores negativos

x - floor(x)

x - floor(x) - (x<0) ### para tratamento dos valores negativos