lcm <- function(x) {
UseMethod("lcm")
}
lcm.rational_chord <- function(x) {
y <- c(numbers::mLCM(x[1, ]),
numbers::mGCD(x[2, ]))
fraction(y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.