tests/testthat/students/453654725/987.R
In oonyambu/stats_102A: Grade stats 102A (UCLA)
gcd <- function(a, b) {
stopifnot(a > 0, b > 0, as.integer(a) == a, as.integer(b) == b)
while (b - a) if (a > b) a <- a - b else b <- b - a
a
}
GCD <- function(x, y, z) gcd(gcd(x, y), z)
oonyambu/stats_102A documentation built on July 21, 2020, 7:28 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
gcd <- function(a, b) {
stopifnot(a > 0, b > 0, as.integer(a) == a, as.integer(b) == b)
while (b - a) if (a > b) a <- a - b else b <- b - a
a
}
GCD <- function(x, y, z) gcd(gcd(x, y), z)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.