std::string getErrorMessage()
{
std::string errMessage ;
Error callError = RFunction("geterrmessage").call(&errMessage);
if (callError)
LOG_ERROR(callError);
return errMessage;
}
RFunction Identity(int dim)
{return RFunction(new function_algebra_identity(dim));}
RFunction Polynomial1D(const coord_type& c) { return RFunction(new function_algebra_polynomial1D(c));}
RFunction S3(const double& a, const double& b) { return RFunction(new function_algebra_hermite(a,b));}
RFunction Rotation3D (const coord_type& axis, double angle)
{ return RFunction(new function_algebra_rotation3D(axis,angle));}
RFunction DistanceToHyperplane(const coord_type& normal, double dist)
{ return RFunction(new function_algebra_distance(normal,dist));}
RFunction ProjectToHyperplane (const coord_type& normal, double dist)
{ return RFunction(new function_algebra_project(normal,dist));}
RFunction Circle (const coord_type& m, double r) {return RFunction(new function_algebra_circle(m,r));}
RFunction Translate(const coord_type& t) { return RFunction(new function_algebra_translate(t));}
RFunction Scale (const coord_type& diag) { return RFunction(new function_algebra_scale(diag));}
RFunction Norm2(int n) { return RFunction(new function_algebra_norm2(n));}
RFunction X(int i,int dim) { return RFunction(new function_algebra_coordinate_with_dim(i,dim));}
RFunction X(int i) { return RFunction(new function_algebra_coordinate(i));}
RFunction Constant(const coord_type& p, int dDef) { return RFunction(new function_algebra_constant(p,dDef));}