names(query.list)
alig = dtwSat(query.list[["Soybean"]], template, weight = "logistic",
alpha = 0.1, beta = 100, n.alignments = 4, keep = TRUE)
## Plot path
gp1 = plot(alig, type="path", normalize=TRUE, show.dist = TRUE)
gp1
## Plot alignment
gp2 = plot(alig, type="alignment", n=1, attr="evi", shift=0.5)
gp2
## Plot classification
gp3 = plot(alig, type="classify", attr="evi",
from=as.Date("2009-09-01"), to=as.Date("2013-09-01"),
by = "6 month", normalized=TRUE, overlap=.7)
gp3
Run the code above in your browser using DataLab