I don\'t understand the following: Why does
data_ts <- data.frame( day = as.Date("2017-06-14") - 0:364, value = runif(365) + seq(-140, 224)^2