x <- as.bigq(21,6)
x
# 7 / 2
# Wow ! result is simplified.
y <- as.bigq(5,3)
# addition works !
x + y
# You can even try multiplication, division...
x * y / 13
# and, since May 2012,
x ^ 20
stopifnot(x ^ 20 == as.bigz(7)^20 / 2^20)
# convert to string, double
as.character(x)
as.double(x)
Run the code above in your browser using DataLab