Assorted_R_Functions