cubenumbers <- function(x) {
result <- c()
for (i in x) {
root <- round(i^(1/3))
if (root^3 == i) {
result <- c(result, i)
}
}
return(result)
}
使用示例:
> x <- c(1, 4, 9, 27, 16, 8)
> cubenumbers(x)
[1] 1 27 8
在上面的代码中,我们定义了一个名为“cubenumbers”的函数,它期望一个包含正整数的向量作为输入,并返回其中每个立方数的向量。对于输入向量中的每个元素,我们计算它的立方根,假如其立方等于该元素,则将其添加到结果向量中。最后,我们返回结果向量。在本示例中,我们将函数的输出存储在“result”变量中,然后返回它。我们还使用一个循环来遍历输入向量中的每个元素。