在R中为您提供以3为底的任意数字n的算法

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