Hello i would like to compute the following code ;
Where R_user_F is a R function (i could write this function directly inin line
but is only for example because i want to call an R function more complex):
so when compile appear this error message: error:
"cannot convert 'Rcpp::sugar::Comparator_With_One_Value<14,
Rcpp::sugar::greater_or_equal<14>, true, Rcpp::sugar::Minus_Vector_Vector<14,
true, Rcpp::Vector<14>, true, Rcpp::Vector<14> > >' to 'bool' in
initialization."
I can do for solve this problem? Thank You.
The code:
R_user_F<-function (par) {
y<-par[1]
x<-par[2]
dnorm(x)*dnorm(y)
}
require(inline)
code <- '
NumericVector f1;
NumericVector f2;
NumericVector par1;
NumericVector par2;
NumericVector a=2;
NumericVector b=3;
NumericVector par =par;
par1=par*b;
par2=par*a;
Function R_userf(fun);
f1=R_userf(par1);
f2=R_userf(par2);
bool u = (Rf_runif(0.0,1.0) <= f2-f1 );
'
RcppGibbs <- cxxfunction(signature( par ="NumericVector", fun="function"),
code,
include='#include <math.h>',
plugin="Rcpp")<-function (par) {
y<-par[1]
x<-par[2]
dnorm(x)*dnorm(y)
}
_______________________________________________
Rcpp-devel mailing list
[email protected]
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
