search for: respuesta

...tre un svm y un randomForest para una serie de datos, por ello hago: midataset<-import..... #datos es un dataframe de 1500 filas y 15 variables for(i in 1:10){ numeros<-sample(1:1500,1500*0.7) train<-datos[numeros,] test<-datos[-numeros,] #modeloRF modelo.rf<-randomForest(respuesta~,train) prediccion<-predict(modelo.rf,test) fp<-table(prediccion,test$respuesta)[2,1] fn<-table(prediccion,test$respuesta)[1,2] error<-(fp+fn)/nrow(train.balanceado) resultado<-rbind(resultado,data.frame(error=error,modelo="rf")) #modelo SVM modelo.svm<-svm(respuest...

Buenas, las imágenes no se ven por lo que no puedo reproducir tu ejemplo, pero tal vez lo siguiente te valga: > library('stringr') > d <- data.frame(respuestas = c('manzana, naranja', 'manzana, melocotón', 'naranja, melocotón')) > d respuestas 1 manzana, naranja 2 manzana, melocotón 3 naranja, melocotón > d$manzana <- sapply(d$respuestas, FUN = str_detect, 'manzana', simplify = TRUE) > d$naranja &lt...

estimados, ajusté una superficie de respuesta con el paquete "rsm" de R y hago un grafico 2D de la superficie de respuesta con contour(), pero como el argumento de esta función es la superficie de respuesta ajustada y ésta se ha ajustado codificando las variables, de acuerdo a la recomendación de la documentación del paquete rsm, obt...

Hola compañeros de la lista. Estoy aprendiendo a usar el paquete "rsm" para superficies de respuesta. Siguiendo este ejemplo todo va bien, hasta que trato de obtener el valor máximo predicho para la variable de respuesta en los valores de x1 y x2 estimados. ------------------------------------------------------------- library("rsm") ChemReact CR <- coded.data(ChemReact, x1 ~ (Time...

Hola, cómo andan! Tengo el siguiente problema. Tengo una pregunta cuya respuesta es múltiple, pero en en la base están todas las respuestas en una misma variable y cada respuesta está separada por ",". Así está [image: image.png] Hago esto para poder separar en columnas las distintas respuestas: *mult_bas_dat<-mult_bas_dat %>% separate_rows(bases, sep =...

Hola compañeros de la lista. Los molesto con la siguiente duda. En un diseño central compuesto (CCD) con dos factores (V1 y V2) y una variable de respuesta (R), utilizando valores codificados (-1.4142, -1, 0, 1, 1.4182), al aplicar la orden: rsm.segundo.orden <- rsm(R ~ Bloque + SO(V1, V2), data = DATOS.Codificados) Obtengo el siguiente modelo: R = 103.92 -2.16 Bloque -2.24 V1 -0.99 V2 + 8.75 V1 V2 -37.07 V1² -37.07 V2² do...

...tre un svm y un randomForest para una serie de datos, por ello hago: midataset<-import..... #datos es un dataframe de 1500 filas y 15 variables for(i in 1:10){ numeros<-sample(1:1500,1500*0.7) train<-datos[numeros,] test<-datos[-numeros,] #modeloRF modelo.rf<-randomForest(respuesta~,train) prediccion<-predict(modelo.rf,test) fp<-table(prediccion,test$respuesta)[2,1] fn<-table(prediccion,test$respuesta)[1,2] error<-(fp+fn)/nrow(train.balanceado) resultado<-rbind(resultado,data.frame(error=error,modelo="rf")) #modelo SVM modelo.svm<-svm(respuest...

...tre un svm y un randomForest para una serie de datos, por ello hago: midataset<-import..... #datos es un dataframe de 1500 filas y 15 variables for(i in 1:10){ numeros<-sample(1:1500,1500*0.7) train<-datos[numeros,] test<-datos[-numeros,] #modeloRF modelo.rf<-randomForest(respuesta~,train) prediccion<-predict(modelo.rf,test) fp<-table(prediccion,test$respuesta)[2,1] fn<-table(prediccion,test$respuesta)[1,2] error<-(fp+fn)/nrow(train.balanceado) resultado<-rbind(resultado,data.frame(error=error,modelo="rf")) #modelo SVM modelo.svm<-svm(respuest...

...gt; for(i in 1:15){ > > > > numeros<-sample(1:1500,1500*0.7) > > > > train<-datos[numeros,] > > > > test<-datos[-numeros,] > > > > > > #modeloRF > > > > resultadoRF <- list() > > > > modelo.rf<-randomForest(respuesta~,train) > > > > prediccion<-predict(modelo.rf,test) > > > > fp<-table(prediccion,test$respuesta)[2,1] > > fn<-table(prediccion,test$respuesta)[1,2] > > error<-(fp+fn)/nrow(train.balanceado) > > resultadoRF[[i]]<-rbind(resultado,data.frame(err...

Hola, cómo andan! Tengo el siguiente problema. Tengo una pregunta cuya respuesta es múltiple, pero en en la base están todas las respuestas en una misma variable y cada respuesta está separada por ",". Así está [image: image.png] Hago esto para poder separar en columnas las distintas respuestas: *mult_bas_dat<-mult_bas_dat %>% separate_rows(bases, sep =...

...datos fila var1 var2 var3 var4 p1 p2 p3 1 1 0 1 1 1 var2 var3 var4 2 2 0 1 1 1 var2 var3 var4 3 3 0 0 0 0 0 0 0 4 4 1 0 0 0 var1 0 0 5 5 1 1 0 0 var1 var2 0 El caso es que no puedo haber más de 3 respuestas. En mis datos reales tengo más de 600 variables de tipo 0,1 , pero nadie ha contestado más de 3 respuestas. ¿cómo podría asignar a p1, p2 y p3 el nombre de las variables dónde hay un 1? alguna idea? Saludos.

Envi? un email a esta cuenta de correo con una invitaci?n pero no tuve alguna respuesta. En el cuerpo se describe una invitaci?n para un evento internacional liderado por un experto en el tema sobre la elaboraci?n de una Planeaci?n Maestra en Producci?n. Se llevar? a cabo el 26 de junio v?a zoom. Es una capacitaci?n dirigida para mandos altos y a todo personal interesado en aprender...

...elo con sobreajuste. Para quedarte tranquilo, haz la prueba, coge el modelo resultante de la validación y ve aplicándolo a los nuevos datos. Haz lo mismo con el que obtengas de ése paso final que NO debes dar, y que no te he puesto en mi código corregido, a saber: modelo.final<-randomForest(respuesta~.,datos) Cuando los aplicas con los nuevos datos, ¿cuál funciona mejor? Un saludo Isidro Hidalgo Arellano Observatorio del Mercado de Trabajo Consejería de Economía, Empresas y Empleo http://www.castillalamancha.es/ De: Jesús Para Fernández [mailto:j.para.fernandez en ho...

Enun ejemplo real estoy viendo como el intervalo de confianza usando lo que me comentas me ha salido mucho más pequeño de lo que la realidad luego refleja. ¿Cómo es esto posible?? Es decir, veo que para valores de 2,70 obtengo una respuesta de entre 2,69 y 2,90 y sin embargo luego en la realidad tengo valores entre 2,20 y 3 Gracias Jesús From: jorgeivanvelez en gmail.com Date: Thu, 21 Apr 2016 09:09:03 -0500 Subject: Re: [R-es] Calcular Error en modelo lineal To: j.para.fernandez en hotmail.com CC: r-help-es en r-project.org Buen...

estimados no he encontrado el modo de hacer en R el tipico grafico de medias con la desviacion estandar asociada ... me explico, tengo 2 variables numericas, para la variable independiente se elijen 3 niveles y en cada uno de ellos se mide 15 veces la variable respuesta, para este data.frame se quiere mostrar en un grafico en el eje X los 3 niveles escogidos y en el Y la vbla respuesta, pero no e quiere hacer una¡ grafico de dispersion, sino solo mostrar el promedio y las barras de desviacion asociadas, hay algun modo de hacer esto en R?? graficar el promedio en...

Hola quisiera saber como parameterizar el siguiente diseño con lme4. Tengo 4 tratamientos, con 4 parcelas cada uno, divididas a su vez en 4 subparcelas, y se han tomado 5 medidas repetidas (5 ocasiones) y se quiere ver el cambio en la variable respuesta producido por los tratamientos a través de las 5 ocasiones. Mi intento con lmer es el siguiente: mod <- lmer(variable respuesta ~ ocasión * tratamiento + (ocasión | parcela/subparcela) Es correcta esta forma de parameterización del diseño planteado? Saludos, Manuel Spínola -- *Manuel Sp...

Hola muy buenas tardes. Reciba un c?lido saludo y esta cordial invitaci?n a participar a nuestro Seminario Online: ?Las 7 Reglas de Oro del control de Inventarios? con 8 horas de capacitaci?n efectiva que ser? celebrado el d?a Lunes 20 de Marzo, en horario de 9:00 am a 6:30 pm. ?Por qu? Inscribirse? Convierta su departamento en un factor de crecimiento y desarrollo para lograr el ?xito de la

 Xmas Gifts<br>  <br> My dear friends,Greetings from Doublewin-trade working team.<br>   <br>   I hope every thing is going on with you!Here,Thanks a lot for your support to us . We prepared some wonderful gifts for you!<br>   It seems that Christmas time is here once again, and it is time again to bring in the New Year. I wish you enjoy the Merry Christmas and your

Hola a todos, me estoy volviendo loco con la siguiente función: preguntar<- function (matriz_respuestas_interna) {     cat("\n","¿Acertaste la respuesta (NO:0 SI:1)?","\n")         y<-scan(n=1)     matriz_respuestas_interna<-cbind(matriz_respuestas_interna,y) } Resulta que yo he definido la siguiente variable matriz_respuestas<-1 Y querría que al hacer: pre...