ref_data <- mp_toy_data$data[, 1]
qe_data <- mp_toy_data$data[, 2]
qd_data <- mp_toy_data$data[150:200, 1]
w <- mp_toy_data$sub_len
# distance between data of same size
deq <- mpdist(ref_data, qe_data, w)
# distance between data of different sizes
ddiff <- mpdist(ref_data, qd_data, w)
# distance vector between data of different sizes
ddvect <- mpdist(ref_data, qd_data, w, type = "vector")
Run the code above in your browser using DataLab