如何停止從打印結果循環R

Question

我想循環通過整數1：1000比較我創建函數的結果與R函數。具體來說，我有：

floor.log2 = function(n) { 
    x = 1 
    i = 0 
    while (x <= n) { 
    x = 2*x 
    i = i + 1 
    } 
    print(i-1) 
} 

而且我想用比較：

floor(log(n, base = 2)) 

我創建的每個比較循環結束了打印每個指標1：1000 - 什麼是比較結果的簡潔的方式在這些函數中1：1000沒有R打印索引？

Answer 1

我會修改你寫的現有功能：

floor.log2 = function(n) { 
x = 1 
i = 0 
while (x <= n) { 
    x = 2*x 
    i = i + 1 
} 
return(i-1) 
} 

測試：

iter <- 100 # How long you would like to test for 
vec1 <- c() # Container of your custom function 
vec2 <- c() # Container for the comparison function 

for(i in 1:iter) { 
    vec1[i] <- floor.log2(i) 
    vec2[i] <- floor(log(i, base = 2)) 
} 

最後：

all(vec1 == vec2)