Create cycle.r