Creating a weekly ts time series object in R

https://stackoverflow.com/questions/22188660/r-time-series-modeling-on-weekly-data-using-ts-object

for a use :

library(lubridate)
data = 1:319
ts(data, freq=365.25/7, start=decimal_date(ymd("2013-1-13")))