I bet the problem is that you have differenced, so, one end of the differences is looking for a year that doesn't exist (either the year before the first year you have data for, or the year after the last year you have data for).
The solution would be to difference for a set that is one year shorter than your actual set of years
EDIT
Thinking about it some more, I think you should subset before you difference rather than the other way around. Something like
X_2001 <- subset(X, dat[["Year"]] > 2001)
urdfTest(X_2001, MORE CODE HERE)