Example

suppressMessages(library(DTWUMI)) # Load package DTWBI

## Error in library(DTWUMI): aucun package nommé 'DTWUMI' n'est trouvé

data(dataDTWUMI)

## Warning in data(dataDTWUMI): jeu de données 'dataDTWUMI' introuvable

# Fill one gap
dataDTWUMI_gap <- dataDTWUMI[["incomplete_signal"]]

## Error: objet 'dataDTWUMI' introuvable

id_gaps <- Indexes_size_missing_multi(dataDTWUMI_gap)

## Error in Indexes_size_missing_multi(dataDTWUMI_gap): impossible de trouver la fonction "Indexes_size_missing_multi"

id_gaps

## Error: objet 'id_gaps' introuvable

t_gap <- 577 ; T_gap <- 40
imputation <- DTWUMI_1gap_imputation(dataDTWUMI_gap, id_sequence=1, t_gap, T_gap)

## Error in DTWUMI_1gap_imputation(dataDTWUMI_gap, id_sequence = 1, t_gap, : impossible de trouver la fonction "DTWUMI_1gap_imputation"

plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(y = imputation$imputed_values, x = imputation$id_gap, col = "red")

## Error: objet 'imputation' introuvable

plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(y = imputation$imputed_values, x = imputation$id_gap, col = "red")

## Error: objet 'imputation' introuvable

lines(y = dataDTWUMI_gap[imputation$id_query, 1], x = imputation$id_query, col = "green")

## Error: objet 'imputation' introuvable

plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(y = imputation$imputed_values, x = imputation$id_gap, col = "red")

## Error: objet 'imputation' introuvable

lines(y = dataDTWUMI_gap[imputation$id_query, 1], x = imputation$id_query, col = "green")

## Error: objet 'imputation' introuvable

lines(y = dataDTWUMI_gap[imputation$id_sim_win, 1], x = imputation$id_sim_win, col = "orange")

## Error: objet 'imputation' introuvable

plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(y = imputation$imputed_values, x = imputation$id_gap, col = "red")

## Error: objet 'imputation' introuvable

lines(y = dataDTWUMI_gap[imputation$id_query, 1], x = imputation$id_query, col = "green")

## Error: objet 'imputation' introuvable

lines(y = dataDTWUMI_gap[imputation$id_sim_win, 1], x = imputation$id_sim_win, col = "orange")

## Error: objet 'imputation' introuvable

lines(y = dataDTWUMI_gap[imputation$id_imputation, 1], x = imputation$id_imputation, col = "blue")

## Error: objet 'imputation' introuvable

#### Fill all gaps ####
dataDTWUMI_gap <- dataDTWUMI[["incomplete_signal"]]

## Error: objet 'dataDTWUMI' introuvable

imputation <- DTWUMI_imputation(dataDTWUMI_gap, gap_size_threshold = 10)

## Error in DTWUMI_imputation(dataDTWUMI_gap, gap_size_threshold = 10): impossible de trouver la fonction "DTWUMI_imputation"

# Sequence 1
plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

plot(dataDTWUMI_gap[, 1], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(imputation$output[, 1], col = "red")

## Error: objet 'imputation' introuvable

# Sequence 2
plot(dataDTWUMI_gap[, 2], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

plot(dataDTWUMI_gap[, 2], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(imputation$output[, 2], col = "red")

## Error: objet 'imputation' introuvable

# Sequence 3
plot(dataDTWUMI_gap[, 3], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

plot(dataDTWUMI_gap[, 3], type = "l", lwd = 2)

## Error: objet 'dataDTWUMI_gap' introuvable

lines(imputation$output[, 3], col = "red")

## Error: objet 'imputation' introuvable