Почему я не могу использовать выходные данные моей функции, чтобы получить выходные данные для моей другой определенной функции в R?

Question

Для моего класса я пытаюсь создать функцию, которая дает мой вывод в виде уменьшенной доли x и y из моей функции под названием GCD, которая находит наибольший общий делитель

Давайте позволим x <- 85 и y <- 5 для простоты

GCD(85,5)
[1] 5

simplify_rat <- function(85,5) {
GCD(x,y)
gcd <- c(GCD(x,y))
  n <- (y/gcd)
  d <- (x/gcd)
  print(cat(n, "/", d, "\n"))
  }

Но я получаю этот вывод без уменьшенной доли

[1] 5
[1] 5
/  
NULL

Почему я не могу использовать выход из GCD? Есть ли способ сделать это полезным?

Answer 1

Всегда передавайте переменные параметры своим функциям:

require(DescTools)

simplify_rat <- function(x,y) {
  gcd <- c(GCD(x,y))
  n <- (y/gcd)
  d <- (x/gcd)
  cat(n, "/", d, "\n")
}

simplify_rat(85,5)

---

1 / 17