# NOT RUN {
y <- 105
x <- -y:y
d <- pgcd(x, y)
m <- plcm(x, y)
graphics::plot(
x = x, y = d,
ylab = substitute("Greatest Common Divisor of x and " ~ y, list(y = y))
)
graphics::plot(
x = x, y = m,
ylab = substitute("Least Common Multiple of x and " ~ y, list(y = y))
)
d * m == abs(x * y)
pcoprime(x, 105)
# }
Run the code above in your browser using DataLab