usnim_2002[, 2] Above you grabed 1 column, a vector. Do the same for this new data set with Spend
start = c(2002, 1) Above you specified a date start (year, month) but don't this time.
Also I think your data is character. Maybe use lapply(mydata, class) to see.