Set R = CreateObject("StatConnectorSrv.StatConnector")
R.Init "R"
R.EvaluateNoReturn "source('"&CurrentPath&"/TEST.R')" # CODE R
R.EvaluateNoReturn"COT=Nbre_Cotisant_Regime(base_Cotisant=Base_Cotisant,base_Flux=taux_entree,Age_ret=!!!!!!!!!!!!,N=1,Nouv_Cotisant=5000,t=1)" #Varaible Age_RET should have the QV library