juan manuel dias
2019-Apr-12 14:06 UTC
[R-es] Consulta como ponderar en un modelo de regresión utilizando CARET
Hola, Les comparto la siguiente duda, quizá alguno ya trabajó con ponderaciones al al momento de entrenar un modelo. Necesito que el modelo que genero reciba la información ponderada. Mi base de datos se llama "eph" y la variable de ponderación PONDIH. Estuve mirando la documentación de la función "train" de caret, y veo que hay un argumento "weight=...que permite pasar un vector de pesos, pero no pude resolverlo probando de varias formas. Muchas gracias! Saludos, Juan. ------------------------------------------------------------------------------------------------- set.seed(34) index <- createDataPartition(eph$Ingreso, p = .70, list = F) train <- eph[index,] test <- eph[-index,] # Entrenamos regresión lineal: lm <- lm(Ingreso~., data = train) lm summary(lm) # Aplicamos a test: test$pred <- predict(lm, test) [[alternative HTML version deleted]]
juan manuel dias
2019-Apr-13 18:50 UTC
[R-es] Consulta como ponderar en un modelo de regresión utilizando CARET
Estimados, Alguien trabajo con caret pasando un factor de ponderacion? Gracias. Juan. El vie., 12 de abr. de 2019 11:06 a.m., juan manuel dias < juamadias en gmail.com> escribió:> Hola, > Les comparto la siguiente duda, quizá alguno ya trabajó con ponderaciones > al al momento de entrenar un modelo. > > Necesito que el modelo que genero reciba la información ponderada. Mi base > de datos se llama "eph" y la variable de ponderación PONDIH. > > Estuve mirando la documentación de la función "train" de caret, y veo que > hay un argumento "weight=...que permite pasar un vector de pesos, pero no > pude resolverlo probando de varias formas. > > Muchas gracias! > > Saludos, Juan. > > ------------------------------------------------------------------------------------------------- > set.seed(34) > index <- createDataPartition(eph$Ingreso, p = .70, list = F) > train <- eph[index,] > test <- eph[-index,] > > # Entrenamos regresión lineal: > > lm <- lm(Ingreso~., data = train) > lm > summary(lm) > > # Aplicamos a test: > > test$pred <- predict(lm, test) >[[alternative HTML version deleted]]