mapply回收论点

Question

我编写了一个函数,它将基数为10的数字转换为另一个基数(我只对基数2 - 9感兴趣).我目前将基数10转换为基数2的函数如下:

cb2 <- function(num){
    td<-{}
    a <- {}
    while (num 2 > 0 ){
        a <- num %% 2
        td <- paste(td,a, sep="")
        num <- as.integer(num / 2)              
    }   
    return(td)  
} 

用法是:

sapply(1:10, cb2)

我想概括这个函数,并将首选的基数包含在函数的参数中,ala ...

convertbase <- function(num, base){
    td<-{}
    a <- {}
    while (num / base > 0 ){
        a <- num %% base
        td <- paste(td,a, sep="")
        num <- as.integer(num / base)               
    }   
    return(td)  
}

如果我只对转换成2-10基础的单个数字感兴趣,那么一切都很好:

mapply(convertbase, 10, 2:10)

但是,如果我想要基数2:10的数字1:10,我会遇到问题:

mapply(convertbase, 1:10, 2:10)
Warning message:
In mapply(convertbase, 1:10, 2:10) :
  longer argument not a multiple of length of shorter

理想情况下,这个函数或函数集将返回一个数据框,其中包含基数2-10的单独列,但我意识到我所拥有的代码和目标之间缺少某些东西.任何帮助,将不胜感激.

Answer 1

mapply将函数应用于每一行,而在我看来,您希望将函数应用于数字和基数的所有组合.这样做的诀窍:

outer(1:10,2:9,Vectorize(convertbase))