Question

我需要编写一个算法，在R中的基数3中为您提供任意数字n。到目前为止，我写道：

NameOfTheFunction <- function(n) { while (n != 0) {
{q<- n%/%3}
{r <- n%%3}
{return(r)}
q<- n  } }

我的问题是我现在需要在向量中存储每个r。我从来没有这样做，也不知道如何处理它。我试图在互联网上找到一些东西，但我没有发现任何与这种特殊情况有关的东西。

Answer 1

完成功能后，请使用：

sapply(vector, FUN=function(n) return(NameOfTheFunction(n)))

sapply所做的是，对于您选择的给定vector，它将使用向量中的每个元素代替NameOfTheFunction(n)来重复函数n功能。在这种情况下，结果将是向量中每个输出的向量。

例如：

vector <- c(10, 100, 1000, 10000)
NameOfTheFunction <- function(n) { while (n != 0) {
  {q<- n%/%3}
  {r <- n%%3}
  {return(r)}
  q<- n  } }
sapply(vector, NameOfTheFunction)
[1] 1 1 1 1

在R中为基数3提供任意数字n的算法

1 个答案: