gistfile1.r

(n <- 1.4 * 45)
#=> [1] 63
(n <- n %% 6)
#=> [1] 3
as.character(n)
#=> [1] "2.99999999999999"
as.integer(n)
#=> [1] 2
as.integer(round(n))
#=> [1] 3

(n <- 63 %% 6)
#=> [1] 3
as.character(n)
#=> [1] "3"
as.integer(n)
#=> [1] 3