Description Details Author(s) References Examples
Functions to impute large gaps within time series based on Dynamic Time Warping methods. It contains all required functions to create large missing consecutive values within time series and to fill them, according to the paper Phan et al. (2017), <DOI:10.1016/j.patrec.2017.08.019>. Performance criteria are added to compare similarity between two signals (query and reference).
Index: This package was not yet installed at build time.
Camille Dezecache, T. T. Hong Phan, Emilie Poisson-Caillault
Maintainer: Emilie Poisson-Caillault <emilie.poisson@univ-littoral.fr>
Thi-Thu-Hong Phan, Emilie Poisson-Caillault, Alain Lefebvre, Andre Bigand. Dynamic time warping- based imputation for univariate time series data. Pattern Recognition Letters, Elsevier, 2017, <DOI:10.1016/j.patrec.2017.08.019>. <hal-01609256>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # Load package dataset
data(dataDTWBI)
# Create a query and a reference signal
query <- dataDTWBI$query
ref <- dataDTWBI$query
# Create a gap within query (10% of signal size)
query <- gapCreation(query, rate = 0.1)
data <- query$output_vector
begin_gap <- query$begin_gap
size_gap <- query$gap_size
# Fill gap using DTWBI algorithm
results_DTWBI <- DTWBI_univariate(data, t_gap = begin_gap, T_gap = size_gap)
# Plot
plot(ref, type = "l")
lines(results_DTWBI$output_vector, col = "red", lty = "dashed")
# Compute the similarity of imputed vector and reference
compute.sim(ref, results_DTWBI$output_vector)
|
[1] "DTW"
[1] 0.9951153
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.