0

Intento crear una función que aplique kmeans y retorne la Inercia total intragrupos. El problema se presenta al tratar de seleccionar sólo algunas variables de la planilla que paso como parámetro.

Me aparece el siguiente mensaje:

> MiKMeans("D:/PRUEBAS en R/K MEANS","Ingresantes97.xls",6,1)
Error in excelFile[, c(2, 7, 10, 22, 25)] : 
  incorrect number of dimensions

Y la tabla a la que accedo tiene 29 variables.

¿Es posible realizarlo? ¿Y de qué manera?

El código de mi función es el siguiente:

MiKMeans<-function(workingFolder, excelFile, cantgrupos,formulaOption)
{
    setwd(workingFolder)
    library ("readxl")
    if (file.exists(excelFile)){
       if (formulaOption==1)
          myData <-excelFile[,c(2,6,10,24,25)]  
            else
              if (formulaOption==2)
                myData <-excelFile[,c(2,6,10,22,24,25)]

        Ingreso<-as.data.frame(scale(myData))   
        set.seed(80)   
        Ingreso.km<-kmeans(Ingreso,cantgrupos)  
        return(Ingreso.km$tot.withinss) 
    }           
    else    print ("Error. No existe el archivo ") 
    return(Ingreso.km$tot.withinss)
}
7
  • Cuando intentas hacer esto: excelFile[,c(2,6,10,24,25)] imagino que estás suponiendo que excelFilees un data.frame, pero excelFile es un nombre de archivo, es decir una cadena. En ninguna parte de tu código, estás leyendo dicho archivo. el 24 jun. 2019 a las 1:45
  • Intuyo que te has olvidado usar read_excel() como lo hacías en tu otra pregunta el 24 jun. 2019 a las 1:47
  • Si supuse mal. Lo modifiqué así:MiKMeans<-function(workingFolder, excelFile, cantgrupos,formulaOption) { setwd(workingFolder) library(readxl) Planilla <-read_excel(excelFile) if (file.exists(excelFile)){ if (formulaOption==1) myData <-Planilla[,c(2,6,10,24,25)] .........idem a lo que tenia
    – Claudia
    el 25 jun. 2019 a las 14:37
  • Pero ahora me aparece el siguiente error: > MiKMeans("D:/PRUEBAS en R/K MEANS","Ingresantes97.xls",6,1) Error in file.exists(File) : invalid 'file' argument QUE ESTOY HACIENDO MAL???
    – Claudia
    el 25 jun. 2019 a las 14:41
  • Me imagino que es por que por un lado estás pasando un workingFolder y por el otro un excelFile, no será que el nombre del archivo Excel debiera ser en todo caso algo así paste0(workingFolder, "/", excelFile) el 25 jun. 2019 a las 14:47

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.