search

SensataUX / sensataDataProg

Other
0 stars 1 forks source link

scrubRows añadir argumento de variable para cuando no se vaya a usar sensataId y % perdidos #7

Open GaborioSensata opened 2 years ago

GaborioSensata commented 2 years ago

incluir un argumento que sea la variable y que por default sea sensataId. Además incluir lo de % de perdidos:

finagroIntData$perdidos <-  apply(pregData, 1, function(y) sum(length(which(as.character(y) == "Saltar pregunta"))))

finagroIntData$proPerd <- finagroIntData$perdidos/nPreguntas*100
summary(finagroIntData$proPerd)
finagroIntData <- finagroIntData %>% filter(proPerd<25) %>% select(-c("perdidos", "proPerd"))
attr(finagroIntData, "numAfterMis") <- nrow(finagroIntData)
attr(finagroIntData, "numFinal") <- nrow(finagroIntData)