R scripts functioned and sourced

visit and lifetime_run would call lifetime_func. Monthly run would call
monthly_func.R