library(tseries)
x <- rnorm(1000) 
adf.test(x,k=0)
adf.test(cumsum(x),k=0)