I choose a periodicity 7. Plot ts and ACF.
df <- read.csv("id.csv",sep = ",") ts <- ts(df, frequency = 7) plot(ts) acf(ts, type = "correlation")
Autocorrelation plots (Box and Jenkins, pp. 28-32) are a commonly-used tool for checking randomness in a data set. This sample autocorrelation plot shows that the time series is not random, but rather has a high degree of autocorrelation between adjacent and near-adjacent observations.