R dtw包：二进制数据的查询和参考向量，以将其传递给dtw函数

我有两张这样的时间序列表

我计算了二进制列以计算特定的分类值，如果此值=“x”，则分配1，否则分配0。我用ggplot画了这个

 p <-ggplot(x1,aes(Time, binary))
 p + geom_line()+ 
 xlab("Time in seconds (s)")+
 scale_y_continuous(name="x = 1, anything else = 0", breaks=c(0, 1))+
 labs(title = "Example of the duration")

在哪里 x是查询向量或局部成本矩阵，y是参考向量，如果x作为局部成本矩阵给出，则为NULL

我所做的是

i<-c(x1$binary)
j<-c(x2$binary)
dtw1 <-dtw(i, j, dist.method="Euclidean", keep.internals = T, step.pattern= symmetric)
plot(dtw1)

---

i我所做的是，我没有将二进制值分配给dtw函数，而是使用了时间

i<-c(x1$Time)
j<-c(x2$Time)
dtw1 <-dtw(i, j, dist.method="Euclidean", keep.internals = T, step.pattern= asymmetric)
plot(dtw1)

i
i<-c(x1$Time)
j<-c(x2$Time)
dtw1 <-dtw(i, j, dist.method="Euclidean", keep.internals = T, step.pattern= asymmetric)
plot(dtw1)