如何在另一个函数中提取和使用一个函数的TRUE答案

Question

我需要创建一个函数（y），其中y是指定的三的倍数。例如，如果输入3为y，则应打印3,6和9。我的思维过程是一个带有if语句的函数（x）来识别一个数字是否是三的倍数然后在函数（y）中的函数（x）中的TRUE答案上使用哪个语句

这是我的函数（x）：

f <- function(x) { if (any(x %% 3== 0)) { TRUE } else { FALSE } }

函数（y）将沿着一个陈述的行，其中3是显示的第一个数字，然后通过使用函数（x）中的TRUE答案达到指定的三个倍数，并打印每个答案并停止一次达到指定的数字。我不太确定如何执行我的思考过程或者是否有更好的方法来执行此操作？

Answer 1

如果您有兴趣学习functions，那么有很多文档。对于您的用例，您可以使用seq函数，如：

number <- 3
multiples <- 3
seq(number, number*multiples, number)
[1] 3 6 9