I have the following dataset:
xdata <- seq(as.Date("2020-11-01"),as.Date("2020-11-10"), "days") ydata <- c(1:10) datamipo