## Not run:
#
# #include <Rcpp.h>
#
# using namespace Rcpp;
#
# // [[Rcpp::export]]
# int fibonacci(const int x) {
#
# if (x == 0) return(0);
# if (x == 1) return(1);
#
# return (fibonacci(x - 1)) + fibonacci(x - 2);
# }
#
# // [[Rcpp::export("convolveCpp")]]
# NumericVector convolve(NumericVector a, NumericVector b) {
#
# int na = a.size(), nb = b.size();
# int nab = na + nb - 1;
# NumericVector xab(nab);
#
# for (int i = 0; i < na; i++)
# for (int j = 0; j < nb; j++)
# xab[i + j] += a[i] * b[j];
#
# return xab;
# }
# ## End(Not run)
Run the code above in your browser using DataLab