Create doubleYScale.R