Sample generic R scripts