On 10 September 2012 at 10:23, Rodney Sparapani wrote: | 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?
Please look at the two emails I sent in this thread on Sep 7. Dirk | | 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 -- Dirk Eddelbuettel | e...@debian.org | http://dirk.eddelbuettel.com _______________________________________________ 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
