add R scripts and figures