main.R error

[personal-coding]

Anytime I try to change the dates of the data files in the main.R file, I receive this error:

> # assign zig-zag to top states
> zig$topstate <- state.filtered
Error in error(x, ...) : 
  improper length of one or more arguments to merge.xts
> for (i in 1:length(topstate.pairs))
+   zig$topstate[state.filtered %in% topstate.pairs[[i]]] <- topstate.index[i]
Error in error(x, ...) : 
  improper length of one or more arguments to merge.xts