Guest User

Untitled

a guest
Aug 20th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. y=45.3
  2. library(Rcpp)
  3. cppFunction(
  4. "NumericVector demo_fun_cpp(double x) {
  5. NumericVector out1(50);
  6. out1[0] = 2;
  7. for (int i=1; i < 50; ++i) {
  8. out1[i]=x+y+out1[i-1];
  9. }
  10. return out1;
  11. }" )
Add Comment
Please, Sign In to add comment