比较两个向量的所有元素是否相等

Question

我正在尝试两个矢量之间的简单矢量比较，其定义如下：

pow_2 <- sapply(1:50, function(x) 2^x)
n_2   <- sapply(1:50, function(x) x^2)

我现在需要为{i}的某些有效值计算pow_2[i] == n_2[i]的索引。

目前，我写了一个函数：

cat("\nPrinting indices which are identical for (n ^ 2) == (2 ^ n) - \n")

get_indices <- function() {
    for(i in 1:50) {
        for(j in 1:50) {
            if(pow_2[i] == n_2[j]) {
                cat(i)
                cat("\n")
            }
        }
    }
}

# call function:
get_indices()

当我尝试：

which(pow_2 == n_2)

它给了我索引2＆amp; 4，同时跳过其余部分。

为什么没有（）函数告诉所有指数？