On 2011-08-16 08:34, Wray, Christopher wrote:
> =============
> x=matrix(1:12,4,3);
> print(ifelse(x<5,x*x,x))
>
> src2='
> using namespace Rcpp;
> NumericMatrix x(x_);
> NumericVector y=ifelse(x<5,x*x,x);
> y.attr("dim")=Dimension(x.nrow(),x.ncol());
> return y;
> '
> fun=cxxfunction(signature(x_ ="integer"),src2,plugin="Rcpp")
> print(fun(x))
>
> ===========
> does this do it for you
Hello Christopher,
Thanks for the suggestion. It works perfectly (I suspect some template
magic could make this assignment automatic).
Darren
--
Darren Cook, Software Researcher/Developer
http://dcook.org/work/ (About me and my work)
http://dcook.org/blogs.html (My blogs and articles)
_______________________________________________
Rcpp-devel mailing list
Rcpp-devel@lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
