#integer
x <- 7
sprintf('x is %s', x)## [1] "x is 7"#float
x <- 7.5
sprintf('x is %s', x)## [1] "x is 7.5"x <- 7/2
sprintf('x is %s', x)## [1] "x is 3.5"#quotient
x <- 7 %/% 2
sprintf('x is %s', x)## [1] "x is 3"#mod
x <- 7 %% 2
sprintf('x is %s', x)## [1] "x is 1"x <- 2 ^ 3
sprintf('x is %s', x)## [1] "x is 8"#decimal
x <- 2.358
format(x, digits = 3)## [1] "2.36"y <- 6.789
sprintf('y is %#.2f', y)## [1] "y is 6.79"