Create totalscheduleddoses.R