using namespace ROOT::R;

TVectorD v1(3);
std::vector<Double_t> v2 {0.101, 0.202, 0.303};
std::array<Int_t,3>  v3{ {1,2,3} };
std::list<std::string> names {"v1", "v2", "v3"};

v1[0]=1;
v1[1]=2;
v1[2]=3;

auto &r = TRInterface::Instance();

TRDataFrame  df1(Label["var1"]=v1,Label["var2"]=v2,Label["var3"]=v3,Label["strings"]=names);

r["df1"]<<df1;
r<<"print(df1)";

TVectorD v4(3);

r["c(-1,-2,-3)"]>>v4;

df1["var4"]=v4;

r["df1"]<<df1;

r<<"print(df1)";

TRDataFrame df2;

r<<"df2<-data.frame(v1=c(0.1,0.2,0.3),v2=c(3,2,1))";
r["df2"]>>df2;

TVectorD v(3);
df2["v1"]>>v;
v.Print();

df2["v2"]>>v;
v.Print();

df2["v3"]<<df1["strings"];

r["df2"]<<df2;
r<<"print(df2)";

df2["v3"]>>df1["var1"];

r["df1"]<<df1;
r<<"print(df1)";