On 09/07/2012 12:19 PM, Dirk Eddelbuettel wrote:
Make that Rcpp::NumericVector a = Rcpp::NumericVector(arg1); and things
will just work.
Would be nice if the compiler messahes could be more helpful... All sugar
functions are vectorised, so you must feed them a vector (which, as we work
with R, may well be of length 1 if you so choose....)
Dirk
Thank you Dirk! But, I seem to keep messing this up. Could you take a
look at this?
require(Rcpp)
require(inline)
str <- '
double x=as<double>(qnorm(as<NumericVector>(arg1),
as<NumericVector>(arg2), as<NumericVector>(1.))[0]);
return wrap(x);
'
check2 <- cxxfunction(signature(arg1="numeric", arg2="numeric"), str,
plugin="Rcpp")
check2(0.5, 0.5)
...
31: double x=as<double>(qnorm(as<NumericVector>(arg1),
as<NumericVector>(arg2), as<NumericVector>(1.))[0]);
32: return wrap(x);
33:
34: END_RCPP
35: }
36:
37:
Error in compileCode(f, code, language = language, verbose = verbose) :
Compilation ERROR, function(s)/method(s) not created!
file1a785d3ff187.cpp: In function 'SEXPREC* file1a785d3ff187(SEXPREC*,
SEXPREC*)':
file1a785d3ff187.cpp:31: error: no matching function for call to
'as(double)'
make: *** [file1a785d3ff187.o] Error 1
In addition: Warning message:
running command '/opt/local/lib64/R/bin/R CMD SHLIB file1a785d3ff187.cpp
2> file1a785d3ff187.cpp.err.txt' had status 1
--
Rodney Sparapani, PhD Center for Patient Care and Outcomes Research
Sr. Biostatistician http://www.mcw.edu/pcor
4 wheels good, 2 wheels better! Medical College of Wisconsin (MCW)
WWLD?: What Would Lombardi Do? Milwaukee, WI, USA
_______________________________________________
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
