Create time_stack.R