Rcpp Version 0.12.12
convolve5_cpp.cpp
Go to the documentation of this file.
1 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
2 
3 // This is a rewrite of the 'Writing R Extensions' section 5.10.1 example
4 
5 #include <Rcpp.h>
6 using namespace Rcpp ;
7 
8 
9 RcppExport SEXP convolve5cpp(SEXP a, SEXP b) {
10  NumericVector xa(a); int n_xa = xa.size() ;
11  NumericVector xb(b); int n_xb = xb.size() ;
12  NumericVector xab(n_xa + n_xb - 1,0.0);
13 
14  Range r( 0, n_xb-1 );
15  for(int i=0; i<n_xa; i++, r++){
16  xab[ r ] += xa[i] * xb ;
17  }
18  return xab ;
19 }
20 
21 #include "loopmacro.h"
23 
#define LOOPMACRO_CPP(name)
Definition: loopmacro.h:12
#define RcppExport
Definition: RcppCommon.h:129
RcppExport SEXP convolve5cpp(SEXP a, SEXP b)
R_xlen_t size() const
Definition: Vector.h:274
Rcpp API.
Definition: algo.h:28