model_drift<-rwf(data_train,h=60,drift = TRUE,level=95) autoplot(model_drift)
Above code shows an almost straight line with variations.