
################# IRENE SALVADOR ORTEGA

# Evaluar el rendimiento final con el clasificador k-vecinos más próximos
# Utilizando el sistema de reconocimiento final construido. Utilizando un tamaño fijo de ventana 
# (8, 9 son los que mejor funcionan)

#### ESTUDIO PROSPECTIVO:
## Pasos a llevar a cabo:
#   -Dividir los datos en train y test según las necesidades de cada caso
#   -El conjunto de test tiene que contener los AUTÉNTICOS y los IMPOSTORES (que puede ser cualquier conjunto con el que contrastar)
#   -Obtener SCORE del conjunto de train con TEST AUTÉNTICOS y otros SCORES del conjunto de train
#con TEST IMPOSTORES.
#   -Con ambos scores construir la curva ROC y obtener la tasa de equierror (EER)

#Líbrerias necesarias
library(FNN)  #para aplicar el clasificador (k-vecinos más próximos)
library("PRROC")  #para la construcción de la curva ROC
#Para la obtención de la tasa de equierror (EER)
#Libreria instalada desde github
library(devtools)
#install_github("davidavdav/ROC")
library("ROC")

# FUNCIÓN PRINCIPAL, va guardando los resultados de cada usuario
# También el conjunto de todos los resultados de todos los usuarios.
aplicarKNN<-function(dispositivo, tipo, ruta_inicio_auxiliar, preprocesamiento, k, experimental, dominio, numVentanas, solapamientoVent, extension_ventana, solapamiento){
  ruta<-paste("C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/",dispositivo, tipo,"/",experimental, "/", dominio, sep = "")
  setwd(ruta)
  
  ruta_inicio<-paste(ruta_inicio_auxiliar,dispositivo,tipo,"/tablas_caract/",preprocesamiento,"/",sep="")
  tasas_EER<-vector() #para guardar las tasas de equierror de cada usuario
  tasas_AUC<-vector()
  
  #--> Me sirve para cuando elimino las ventanas con baja autocorrelación, en función de donde estoy, que atributo seleccionar
  if(dominio=="DT_X" || dominio=="DF_X"){
    variable<-"Autocorr_X"
  }else if(dominio=="DT_Y" || dominio=="DF_Y"){
    variable<-"Autocorr_Y"
  }else if(dominio=="DT_Z" || dominio=="DF_Z"){
    variable<-"Autocorr_Z"
  }else if(dominio=="modulo_DT" || dominio=="modulo_DF"){
    variable<-"Autocorr"
  }
  
  for(user in 1:20){
    
    #selección de los datos, train/test auténticos y test_impostores en función del caso en que me encuentre: 
                  #Monosesión-Monomuestra (MonoMono)
                  #Multisesión-Monomuestra (MultiMono)
                  #Multisesión-Multimuestra (MultiMulti)
    
    #---> inicioScores es 6 y finScores es 10. Voy guardando los scores por para cada tamaño, por columnas
      #cat("Extension ventana:",extension_ventana," del usuario",user,"\n")
      if(dominio=="DT_X" || dominio=="DT_Y" || dominio=="DT_Z" || dominio=="DF_X" || dominio=="DF_Y" || dominio=="DF_Z"){
        tabla_datos<-read.csv2(paste(ruta_inicio,file=dispositivo,"_",tipo,"_",extension_ventana,"veces_",solapamiento,"%solap_XYZ.csv",sep=""), header=TRUE, sep=";")
      }else if(dominio=="modulo_DT" || dominio=="modulo_DF"){
        tabla_datos<-read.csv2(paste(ruta_inicio,file=dispositivo,"_",tipo,"_",extension_ventana,"veces_",solapamiento,"%solap_modulo.csv",sep=""), header=TRUE, sep=";")
      }
      
      #Eliminar autocorrelación <3/4
      tabla_final<-data.frame(NULL,NULL,NULL)
      for(user_ren in 1:20){
        for(sesion_ren in 1:2){
          for(muestra_ren in 1:2){
            eval(parse(text = paste("autocorr_USM<-tabla_datos[tabla_datos[,\"usuario\"]==\"usuario",user_ren,"\" & tabla_datos[,\"sesion\"]==\"S",sesion_ren,"\" & tabla_datos[,\"muestra\"]==\"M",muestra_ren,"\",\"",variable,"\"]", sep = "")))
            
            valor<-(max(abs(autocorr_USM))*3)/4
            no_eliminadas<-autocorr_USM[abs(autocorr_USM)>=valor]
            
            limite_autocorrelacion<-0.75
            while( length(no_eliminadas)<numVentanas+solapamientoVent & length(autocorr_USM) != 0 & limite_autocorrelacion>=0){
              limite_autocorrelacion<-limite_autocorrelacion-0.05
              valor<-max(abs(autocorr_USM))*(limite_autocorrelacion)
              no_eliminadas<-autocorr_USM[abs(autocorr_USM)>=valor]
              #cat("Cambiando el límite de la autocorrelación:",limite_autocorrelacion,",usuario:",user_ren,",sesion:",sesion_ren,",muestra",muestra_ren,"\n")
            }
            
            eval(parse(text = paste("seleccionadas<-tabla_datos[tabla_datos[,\"usuario\"]==\"usuario",user_ren,"\" & tabla_datos[,\"sesion\"]==\"S",sesion_ren,"\" & tabla_datos[,\"muestra\"]==\"M",muestra_ren,"\" & abs(tabla_datos[,\"",variable,"\"])>=valor, ]", sep = "")))
            tabla_final<-rbind(tabla_final, seleccionadas)
          }
        }
      }
      
      if(dominio=="DT_X"){
        #cat("Entra en DT_X.\n")
        tabla_final<-tabla_final[,names(tabla_final) %in% c("usuario","sesion","muestra","Periodo_X","Autocorr_X","media_X",
                                                            "mediana_X","maximo_X","minimo_X","sd_X","rango_X","kurtosis_X",
                                                            "quantil25_X","quantil75_X","skewness_X")]
      }else if(dominio=="DT_Y"){
        #cat("Entra en DT_Y.\n")
        tabla_final<-tabla_final[,names(tabla_final) %in% c("usuario","sesion","muestra","Periodo_Y","Autocorr_Y","media_Y",
                                                            "mediana_Y","maximo_Y","minimo_Y","sd_Y","rango_Y","kurtosis_Y",
                                                            "quantil25_Y","quantil75_Y","skewness_Y")]
      }else if(dominio=="DT_Z"){
        #cat("Entra en DT_Z.\n")
        tabla_final<-tabla_final[,names(tabla_final) %in% c("usuario","sesion","muestra","Periodo_Z","Autocorr_Z","media_Z",
                                                            "mediana_Z","maximo_Z","minimo_Z","sd_Z","rango_Z","kurtosis_Z",
                                                            "quantil25_Z","quantil75_Z","skewness_Z")]
      }else if(dominio=="DF_X"){
        #cat("Entra en DF_X.\n")
        tabla_final<-tabla_final[,names(tabla_final) %in% c("usuario","sesion","muestra","Freq_dom1_X","Amp_dom1_X","Freq_dom2_X",
                                                            "Amp_dom2_X","AUC_X","media_Ampl_X","mediana_Ampl_X","sd_Ampl_X",
                                                            "rango_Ampl_X","kurtosis_Ampl_X","quantil25_Ampl_X","quantil75_Ampl_X",
                                                            "skewness_Ampl_X")]
      }else if(dominio=="DF_Y"){
        #cat("Entra en DF_Y.\n")
        tabla_final<-tabla_final[,names(tabla_final) %in% c("usuario","sesion","muestra","Freq_dom1_Y","Amp_dom1_Y","Freq_dom2_Y",
                                                            "Amp_dom2_Y","AUC_Y","media_Ampl_Y","mediana_Ampl_Y","sd_Ampl_Y",
                                                            "rango_Ampl_Y","kurtosis_Ampl_Y","quantil25_Ampl_Y","quantil75_Ampl_Y",
                                                            "skewness_Ampl_Y")]
      }else if(dominio=="DF_Z"){
        #cat("Entra en DF_Z.\n")
        tabla_final<-tabla_final[,names(tabla_final) %in% c("usuario","sesion","muestra","Freq_dom1_Z","Amp_dom1_Z","Freq_dom2_Z",
                                                            "Amp_dom2_Z","AUC_Z","media_Ampl_Z","mediana_Ampl_Z","sd_Ampl_Z",
                                                            "rango_Ampl_Z","kurtosis_Ampl_Z","quantil25_Ampl_Z","quantil75_Ampl_Z",
                                                            "skewness_Ampl_Z")]
      }else if(dominio=="modulo_DT"){
        #cat("Entra en modulo_DT.\n")
        tabla_final<-tabla_final[,c(1:15)]
      }else if(dominio=="modulo_DF"){
        #cat("Entra en modulo_DF.\n")
        tabla_final<-tabla_final[,c(1:3,16:28)]
      }
      
      tabla<-"tabla_final"
      
      if(experimental=="MonoMono"){
        train<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S1\" & ",tabla, "[,\"muestra\"]==\"M1\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_autenticos<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S1\" & ",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_impostores<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S1\" & ",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]!=\"usuario", user,"\",]", sep = "")))
      }else if(experimental=="MultiMono"){
        train<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S1\" & ",tabla, "[,\"muestra\"]==\"M1\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_autenticos<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S2\" & ",tabla, "[,\"muestra\"]==\"M1\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_impostores<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S1\" & ",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]!=\"usuario", user,"\",]", sep = "")))
      }else if(experimental=="MultiMulti"){
        train<-eval(parse(text = paste(tabla,"[",tabla, "[,\"muestra\"]==\"M1\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_autenticos<-eval(parse(text = paste(tabla,"[",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_impostores<-eval(parse(text = paste(tabla,"[",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]!=\"usuario", user,"\",]", sep = "")))
      }else if(experimental=="MonoMono_S2"){
        train<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S2\" & ",tabla, "[,\"muestra\"]==\"M1\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_autenticos<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S2\" & ",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]==\"usuario", user,"\",]", sep = "")))
        test_impostores<-eval(parse(text = paste(tabla,"[",tabla,"[,\"sesion\"]==\"S2\" & ",tabla, "[,\"muestra\"]==\"M2\" &",tabla, "[,\"usuario\"]!=\"usuario", user,"\",]", sep = "")))
      }
      
      if(dim(train)[1]>0 & dim(test_autenticos)[1]>0 & dim(test_impostores)[1]>0 & floor((dim(test_autenticos)[1]-numVentanas)/solapamientoVent)+1>0 & floor((dim(test_impostores)[1]-numVentanas)/solapamientoVent)+1>0){
        
        train_limpio<-train[,!(names(train) %in% c("usuario","sesion","muestra"))]
        test_autenticos_limpio<-test_autenticos[,!(names(test_autenticos) %in% c("usuario","sesion","muestra"))]
        test_impostores_limpio<-test_impostores[,!(names(test_impostores) %in% c("usuario","sesion","muestra"))]
        
        fit_autenticos<-knnx.dist(data=train_limpio, 
                                  query=test_autenticos_limpio, k=k, algorithm="brute")
        fit_impostores<-knnx.dist(data=train_limpio, 
                                  query=test_impostores_limpio, k=k, algorithm="brute")
        
        fit_autenticos<-fit_autenticos[,ncol(fit_autenticos)]
        fit_impostores<-fit_impostores[,ncol(fit_impostores)]
        
        fit_autenticos_nueva<-vector()
        indice_autenticos<-1
        while(indice_autenticos+numVentanas-1<=length(fit_autenticos)){
          seleccion<-fit_autenticos[indice_autenticos:(indice_autenticos+numVentanas-1)]
          medida<-median(seleccion)
          fit_autenticos_nueva<-c(fit_autenticos_nueva, medida)
          indice_autenticos<-indice_autenticos+solapamientoVent
        }
        
        fit_impostores_nueva<-vector()
        indice_impostores<-1
        while(indice_impostores+numVentanas-1<=length(fit_impostores)){
          seleccion<-fit_impostores[indice_impostores:(indice_impostores+numVentanas-1)]
          medida<-median(seleccion)
          fit_impostores_nueva<-c(fit_impostores_nueva, medida)
          indice_impostores<-indice_impostores+solapamientoVent
        }
        
        write.table(fit_impostores_nueva,file=paste("dist_imp/user",user,"_",extension_ventana,"p",solapamiento,"solap.txt",sep=""),sep="\t",row.names=FALSE, col.names = FALSE)
        write.table(fit_autenticos_nueva,file=paste("dist_aut/user",user,"_",extension_ventana,"p",solapamiento,"solap.txt",sep=""),sep="\t",row.names=FALSE, col.names = FALSE)
        
        
        pdf(file = paste("ROC/",dispositivo,"_",tipo,"_user",user,"_",extension_ventana,"p_",solapamiento,"solap.pdf",sep=""), family = "Helvetica")
        curva_ROC<-roc.curve(fit_impostores_nueva, fit_autenticos_nueva, curve=TRUE)
        plot(curva_ROC)
        datos_tasa_eer<-curva_ROC$curve
        tasa_equierror<-eer(pfa=datos_tasa_eer[,1], pmiss=1-datos_tasa_eer[,2])
        
        if(tasa_equierror==0.5){
          tasa_equierror<-1
        }
        tasas_EER[user]<-tasa_equierror
        tasas_AUC[user]<-curva_ROC$auc
        dev.off()
        
        cat("Fin del usuario",user,"\n")

      }
  }
  
  nnas<-length(tasas_EER)
  tasas_EER<-c(tasas_EER,rep("NA",20-nnas))
  tasas_AUC<-c(tasas_AUC,rep("NA",20-nnas))
  
  tasas_EER<-as.matrix(tasas_EER,nrow=20,ncol=1)
  tasas_AUC<-as.matrix(tasas_AUC,nrow=20,ncol=1)
  
  colnames(tasas_EER)<-c("EER")
  colnames(tasas_AUC)<-c("AUC")
  
  media_EER<-mean(as.numeric(tasas_EER),na.rm=TRUE)
  media_AUC<-mean(as.numeric(tasas_AUC),na.rm=TRUE)
  
  tasas_EER<-rbind(tasas_EER,c(media_EER))
  tasas_AUC<-rbind(tasas_AUC,c(media_AUC))
  
  rownames(tasas_EER)<-c(paste("usuario",1:20, sep = ""),"MEDIA")
  rownames(tasas_AUC)<-c(paste("usuario",1:20, sep = ""),"MEDIA")
  
  write.table(tasas_EER,file=paste("ROC/EER_",extension_ventana,"p",solapamiento,"solap.txt",sep=""),sep="\t")
  write.table(tasas_AUC,file=paste("ROC/AUC_",extension_ventana,"p",solapamiento,"solap.txt",sep=""),sep="\t")
  
}

#Se aplica:
#   -DT: datos originales o con filtro de media móvil 3
#   -DF: datos interpolados o con filtro de media móvil 3
#   -Igual para el módulo en el DT o en el DF

#### Llamadas a la función principal para las situaciones deseadas (probar los sensores y dispositivos disponibles)

# ------> Micro ACC (dominio del tiempo)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)


# ------> Micro ACC (dominio de la frecuencia)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)


# ------> Micro GYR (dominio del tiempo)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)


# ------> Micro GYR (dominio de la frecuencia)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Micro", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

########################### ---> EJECUTADO HASTA AQUÍ

# ------> Moto ACC (dominio del tiempo)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)


# ------> Moto ACC (dominio de la frecuencia)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2,extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "ACC" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)


# ------> Moto GYR (dominio del tiempo)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MonoMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMono", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="DT_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_MM3_originales", k=1, experimental="MultiMulti", dominio="modulo_DT", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)


# ------> Moto GYR (dominio de la frecuencia)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MonoMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMono", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)

aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_X", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Y", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="DF_Z", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
aplicarKNN(dispositivo = "Moto", tipo = "GYR" ,ruta_inicio_auxiliar = "C:/Users/Irene Salvador/Desktop/QUINTO CURSO/---------- TFG/RendimientoFinal_seq/", 
           preprocesamiento = "datos_interpolados", k=1, experimental="MultiMulti", dominio="modulo_DF", numVentanas = 4, solapamientoVent = 2, extension_ventana = 8, solapamiento = 20)
