问题描述
我想让所有数字依次增加10^(seq(1,9,by=1))
,然后再增加10个10^(seq(10,90,by=10))
... 10^(seq(a,b,by=a))
解决方法
也许您可以尝试下面的代码
c(sapply(10**(0:log10(a)),function(x) 10**seq(x,9*x,by = x)))
,
如果我理解正确,那么您要寻找的是
get_pwr <- function(a) {
b <- 10^a - a
10^(seq(a,b,by=a))
}
lapply(seq(1,9,by=1),get_pwr)
记住大小限制:R in a 64 bit world