My R scripts and codes for my publications