initial wrapper with rprogram