Durbin-Watson Test

Is there a command to perform Durbin-Watson in R?  If not, what seems to be
the most efficient way to perform such tests?

Thanks in advance to all.