Create labor.R