add R prog