Logo ROOT  
Reference Guide
Function.C File Reference

Detailed Description

View in nbviewer Open in SWAN

using namespace ROOT::R;
void Function()
{
// Defining functions to be used from R
TRFunctionImport rlist("list");
TRFunctionImport asformula("as.formula");
TRFunctionImport nls("nls");
TRFunctionImport confint("confint");
TRFunctionImport summary("summary");
TRFunctionImport print("print");
TRFunctionImport plot("plot");
TRFunctionImport lines("lines");
TRFunctionImport devnew("dev.new");
TRFunctionImport devoff("dev.off");
TRFunctionImport devcur("dev.cur");
TRFunctionImport rmin("min");
TRFunctionImport rmax("max");
TRFunctionImport seq("seq");
TRFunctionImport predict("predict");
r<<"options(device='pdf')";
// doing the procedure
TRObject xdata = c(-2,-1.64,-1.33,-0.7,0,0.45,1.2,1.64,2.32,2.9);
TRObject ydata = c(0.699369,0.700462,0.695354,1.03905,1.97389,2.41143,1.91091,0.919576,-0.730975,-1.42001);
data["xdata"]=xdata;
data["ydata"]=ydata;
// fit = nls(ydata ~ p1*cos(p2*xdata) + p2*sin(p1*xdata), start=list(p1=1,p2=0.2))
TRObject fit = nls(asformula("ydata ~ p1*cos(p2*xdata) + p2*sin(p1*xdata)"),Label["data"]=data, Label["start"]=rlist(Label["p1"]=1,Label["p2"]=0.2));
print(summary(fit));
print(confint(fit));
if (!gROOT->IsBatch()) {
devnew("Fitting Regression");
plot(xdata,ydata);
TRObject xgrid=seq(rmin(xdata),rmax(xdata),Label["len"]=10);
lines(xgrid,predict(fit,xgrid),Label["col"] = "green");
devoff(Label["which"] = devcur() );
}
}
Author

Definition in file Function.C.

c
#define c(i)
Definition: RSha256.hxx:119
r
ROOT::R::TRInterface & r
Definition: Object.C:4
Function
Double_t(* Function)(Double_t)
Definition: Functor.C:4
ROOT::R::TRInterface::SetVerbose
void SetVerbose(Bool_t status)
Method to set verbose mode, that produce extra output.
Definition: TRInterface.cxx:132
ROOT::R
Definition: RExports.h:56
ROOT::R::TRInterface::Instance
static TRInterface & Instance()
static method to get an TRInterface instance reference
Definition: TRInterface.cxx:185
ROOT::R::Label
const Rcpp::internal::NamedPlaceHolder & Label
ROOT::R::TRFunctionImport
Definition: TRFunctionImport.h:132
ROOT::R::TRDataFrame
Definition: TRDataFrame.h:189
gROOT
#define gROOT
Definition: TROOT.h:406