x <- c(1, 2, 4)
times(x)
div(x)
# `div()` can be useful for specifying div values without
# the need to convert them first into values under zero
ptvalue(c(0.25, 0.5, 1, 2, 4))
ptvalue(c(div(4), div(2), 1, 2, 4))
Run the code above in your browser using DataLab