使用控制台测试在Rcpp中使用count_if

Question

在R中，以下代码会产生此错误

Error: could not find function "test"

library(Rcpp)
cppFunction("
bool predicate(float n){
return(n==1);
}
float test(const NumericVector& y){
  return std::count_if(y.begin(),y.end(),predicate);
}
")
vec<-c(0,0,0,1)
test(vec)

我的目标是创建一个简单的count_if函数。是否会失败，因为

1. 我不允许测试这样的两个功能
2. 因为我的count_if构造错误
3. 两者