Sample R scripts