A Place to Put R Functions for my research