Displays only the last period of a dataset with design \|\|\|\ (\ = descending slope. | = restock)

gistfile1.r

library(ggplot2)
mydata = read.csv("/home/joshua/Downloads/test_data.csv", header = TRUE)

m = length(mydata$x)
theta = matrix(c(0,0), nrow=1)
ux = matrix(c(rep(1,m), mydata$x), ncol=2)
uy= matrix(mydata$y, ncol=1)

for (i in 0:m) {
	j = (m - i)
	if (uy[(j)] > uy[(j-1)]) {
		oy=matrix(uy[j:m], ncol=1)
		ox=matrix(c(rep(1,(i+1)), ux[j:m,2]), ncol=2)
		break
	}
}
oy
ox

plot = ggplot(mydata, aes(x[j:m], y[j:m])) + geom_point() + ylab('Quantity') + xlab('Days')
plot