search for: resultado

...ys(auxiliar.fecha) junio12total$hora<-hours(auxiliar.fecha) junio12total$minuto<-minutes(auxiliar.fecha) detach() attach(junio12total) El problema que tengo ahora es el siguiente: necesito seleccionar los datos máximos de una de las columnas (velocidad de viento) teniendo en cuenta que como resultado quiero un dato para cada hora (tengo un dato cada diez minutos) y que ese dato máximo hay que extraerlo de entre los minutos :00, :10 y :50 *de la hora previa *(es decir, me interesa la velocidad máxima instantánea horaria). Como analizo un único mes, hay que tener en cuenta que para el día 1 y hor...

Hola, tengo una función que cuando mando imprimir el resultado me salen los resultados unidos a un NULL que quiero quitar y no se como hacerlo. Os pongo un ejemplo: foo<- function(x){ x2<- x^2 for(i in 1:length(x)){ print(cat("El cuadrado de",x[i],"es ", x2[i],"n")) } } x <- c(2,4,6) foo(x) El resultado es el si...

Buen día a todos. mi pregunta es si alguien sabe si el algoritmo de k medias siempre da los mismos resultados con los mismos datos de entrada. o si al correrlo dos veces con los mismos datos de entrada se pueden obtener grupos distintos. [[alternative HTML version deleted]]

Buenos díasTengo esta pequeña matriz con tres columnas. Querría saber como puedo filtrar el mes en el que todos los campos de la columna RESULTADO son NA  (en este caso sería unicamente el mes 4). Gracias  | MES | VARIABLE | RESULTADO | | 1 | A | SI | | 1 | B | SI | | 1 | C | NO | | 2 | A | NA | | 2 | B | SI | | 2 | C | SI | | 3 | A | NO | | 3 | B | NO | | 3 | C | NO | | 4 | A | NA | | 4 | B | NA | | 4 | C | NA | [[alternative HTML version...

Hola, pues con esto del kmeans ando pegándome ahora y si quieres tener los mismos resultados para los mismos datos de entrada debes darle una semilla constante en cada ejecución: set.seed(1234) Como se explica aquí: https://stat.ethz.ch/pipermail/r-help/2007-March/128671.html Lo he comprobado en muchas ejecuciones y es así. Otra posibilidad que se menciona también en las consultas que...

...: Tengo un problema con las fechas, básicamente necesito una diferencia en días y siempre se sale en segundos. Salvo un ejemplo copiado de un libro, pero yo necesito procesar los datos propios. Les paso el código en R (copiar y pegar, son solo dos días que se comparan) y al final como me salen los resultados porque es medio complicada mi redacción. ¿Alguna idea? fechas1 <-c(''18/12/1993'', ''27/11/1975'') fechas2 <-strptime(fechas1, format="%d/%m/%Y") fechas2 fechas3 <-c(''18/12/1993'', ''27/11/1976'') fechas4 <-...

Ya... de esta forma tampoco obtienes el mes que tiene todos sus valores NA...que es la duda .. Otra forma más sencilla con data.table que la que envié anteriormente... > > Lines <- "MES|VARIABLE|RESULTADO| + 1|A|SI| + 1|B|SI| + 1|C|NO| + 2|A|NA| + 2|B|SI| + 2|C|SI| + 3|A|NO| + 3|B|NO| + 3|C|NO| + 4|A|NA| + 4|B|NA| + 4|C|NA|" > > DF <- read.table(textConnection(Lines), header = TRUE, as.is = TRUE, sep = "|") > DF$X <- NULL > > #--------------------- > library(d...

Les consulto por lo siguiente: Se me ocurrió usar datos de MCMCglmm en otros procedimientos de R, comparar los resultados y el tiempo como facilidad de uso, para lo cual use LME4, los resultados fueron parecidos, entendiendo que internamente los algoritmos tienen diferencias, es lógico que los resultados no coincidan exactamente, pero aproximadamente tienen que ser compatibles, en este caso observo cuatro dietas, en...

...6,7,7,8,11,10,5), nrow = 3, ncol = 4) -Así pues se tiene que: M [,1] [,2] [,3] [,4][1,] 2 4 7 11[2,] 3 5 7 10[3,] 3 6 8 5 -Y el vector indicador es: Indicador <- c(2,3,3) -Me gustaría tener una nuevo vector, cuyos componentes fueran (si el vector se llamase Resultado) los siguientes: Resultado{1} 4 7 8 -Es decir sería la segunda componente del primer registro, la tercera componente del segundo registro y la tercera componente del tercer registro -No recuerdo si se digo hace tiempo algo de con la librería data.table, me da igual tener que usar cualquier librería...

...t; foo(x) > [1] "El cuadrado de 2 es 4 n " > [1] "El cuadrado de 4 es 16 n " > [1] "El cuadrado de 6 es 36 n " > > El 5 de octubre de 2013 08:16, <morales@us.es [3]> escribió: > >> Hola, tengo una función que cuando mando imprimir el resultado me >> salen los resultados unidos a un NULL que quiero quitar y no se como >> hacerlo. >> >> Os pongo un ejemplo: >> >> foo x2 for(i in >> 1:length(x)){ >> print(cat("El cuadrado de",x[i],"es ", x2[i],"n")) >> } &...

Buen día, no sé si estoy utilizando bien la lista, es la primera vez. Si lo hago mal me corrigen por favor. Sobre tu comentario Pedro, muchas gracias. Lo qeu entiendo con tu sugerencia de set.seed es qeu de esa forma fijas los resultados, pero no estoy seguro si otra agrupación funcione mejor. Es decir me interesa un método de agrupación que genere la "mejor" agrupación y como los resultados de kmeans cambian, no sé cual agrupación elegir. Utilicé otros métodos de agrupación como mclust y pvclust ( http://www.statmethods...

...: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(respuesta~,train) prediccion<-predict(modelo.svm,test) fp<-table(prediccion,test$respuesta)[2,1] fn<-table(prediccion,test$respuesta)[1,2] error<-(fp+fn)/nrow(train.balanceado) resulta...

Hola estimados. Alguien ha utilizado alguna vez el paquete IMPUTE_TS? La verdad es que es bastante recomendable, sin embargo hay un tema que no he podido resolver. El programa te entrega los resultados en la consola...sin embargo, la idea es rellenar los (N.A) del dataset ORIGINAL. La pregunta es: Cómo rellenar los (N.A) del dataset original si tengo los resultados en la consola? O como llevar los resultados de la consola a un formato que me permita hacerlo? Me explico bien? Saludos a todos....

Buen día estimados Estoy tratando de hacer un tibble con los resultados de un apply que se muestran en la consola que me da R, no estoy seguro si eso se pueda hacer, pero me gustaría organizar los resultados de esa manera. mi código es: data("mtcars") Mtcars_matriz <- as.matrix(mtcars) apply(Mtcars_matriz, MARGIN =2, FUN = shapiro.test) DF2 <- tibble(V...

Es cierto, una vez más entendí todo mal. Mis disculpas. La solución con SQL no va nada corta, me parece: # filtrar el mes en el que todos los campos de la columna RESULTADO son NA sqldf(" select * from DF where mes in ( select a.mes from ( select mes, count(*) as total_NA from (select * from DF where resultado=' NA ') group by mes ) a, ( select mes, count(*) as total_MES from...

...; que me los da una web construida hace ya unos años. Supongo que fue publicada en el 2012, por lo que estará construida en el 11, 10 o antes). Esta web me devuelve unas agrupaciones (el gráfico) o me permite a mí bajar la matriz de distancias. Bajé la matriz de distancias y pretendí replicar los resultados > plot(hclust(matriz.bajada, method = 'ward.D2') pero no se replicó, sino que salieron otros clusters. También probé con ward.D. No consigo los resultados de la web. La matriz de datos, insisto, es la que usa la web en custión. Por lo que no debería ser tan difícil replicar los resulta...

...edad_ent <- unclass(round(difftime(mayor_t_origen$origen, mayor_t_origen$nacim, units="auto")/365.25,1)) data2.new <- rbind(menor_t_origen, mayor_t_origen) data2.new <- data2.new[,-which(names(data2.new) %in% c('edad_origen'))] } } # Resultado: Unifico los dos subconjuntos # --------------------------------------- resultado <- rbind(data1.new, data2.new) resultado$edad_final <- unclass(round(difftime(resultado$final, resultado$nacim, units="auto")/365.25,1)) return(resultado) } # FINAL DE...

...ió algo en la manera de calcular los clusters siguiendo los agrupamientos de Ward. Y me temo que el programa que uso on line estará calculando según aquella forma. Lo que querría es encontrar aquella forma (que entiendo que será menos correcta que la actual), para poder 'repetir' los mismos resultados. Disculpá el ser tan poco claro. Pero creeme que lo intento. Buena semana Hau idatzi du Javier Marcuzzi (javier.ruben.marcuzzi en gmail.com) erabiltzaileak (2019 urt. 13, ig. (15:28)): > Estimado Juán Abasolo > > No se si comprendo, usted no quiere replicar sino recalcular datos. Por...

Estimados Estoy realizando una referencia y veo que rseek antes me daba una cantidad de resultados a la consulta, hoy la cantidad de resultados es menor, pero dice en el logo rseek2. ¿Cambió el algoritmo?, ¿es diferente?, ¿se puede acceder al anterior? ¿Alguno sabe que paso? El dato importante para conocer es la cantidad de resultados que da ante determinada palabra, pero esto me cambio (en n...

...r = c(1,2,3)) # Find the corresponding columns in df_1 based on the values in df_2$nombre cols <- match(df_2$nombre, names(df_1)) # Subtract the values of df_2$valor from the corresponding columns of df_1 df_1[,cols] <- df_1[,cols] - (df_2$valor) # Print the resulting data frame df_1 y mi resultado es el siguiente: ana maria jose 1 14 14 14 2 18 18 18 3 27 27 27 Pero el resultado debería ser: ana maria jose 1 13 12 14 2 18 17 19 3 28 27 29 ¿Saben qué podría estar pasando? Quedo muy atento, gracias. -- *Aviso legal:* El contenido de este mensaje y...