El error algo nos dice:
DWT Distance Temporarily not supported
Si además revisamos el código de la función, particularmente en el repositorio del proyecto (diss.R):
diss.DWT <- function(series) {
warning("DWT Distance Temporarily not supported")
return(-1)
# if ( length(dim(series)) == 2 ) {
# if ( dim(series)[1] < 2 ) {
# stop( "diss.DWT needs a minimum of 2 series to compute the distance, incorrect amount provided" )
# }
# } else {
# stop( "diss.DWT series matrix with incorrect dimensions" )
# }
# wt <- wavelet.feature.extraction( series )
# dist(wt)
}
vemos, que hay una gran parte de código comentada y la parte funcional simplemente es el warning y el retorno de -1. Podemos deducir con esto elementos, que los autores del paquete, por algún motivo deshabilitaron la función, más precisamente en el último commit (historia) del proyecto. Resumiendo, el warning y el retorno -1 de está función se explican por la decisión de los autores de comentar esta funcionalidad, como decía un colega: "está bien que ande mal". No encontré información del motivo, pero entiendo se lo podrías preguntar en caso de ser necesario. En el paper del proyecto al final encontrarás los correos de los dos autores.