add scar-* R functions