similar to: Problema con bucle for

Hola, Otra forma de hacerlo, es así: #--------------- > x<- c(24,12,45,68,45) > sum(apply(combn(x,2),2,prod)) [1] 14121 #--------------- Y te ahorras los líos del bucle y de los índices... Saludos, Carlos Ortega www.qualityexcellence.es El 24 de febrero de 2015, 10:36, Francisco Rodríguez <fjroar en hotmail.com> escribió: > Si he entendido bien el problema, lo que quieres

Buenas tengo una matriz de contingencia de 5x4 donde en la última fila y última columna tengo las frecuencias marginales, en función de estas quiero sacar las esperadas, pero cuando hago por ejemplo el producto,, Esperadas<-Estrategia["Suma",]*Estrategia[,"Suma_e"] E1 E2 E3 E4 Suma 5550 14160 52650 89600 20720 Warning message: In Estrategia["Suma", ]

Estimado Enrique Ramos Yo podría decir ¿y data.table?. Hay muchas alternativas Javier Rubén Marcuzzi De: Enrique RAMOS via R-help-es Enviado: martes, 31 de mayo de 2016 14:03 Para: R-help-es en r-project.org Asunto: Re: [R-es] sumar una variable con cast yo de nuevo, ahora se me presento otro problema en la base de datos del ejemplo solo tenia unas cuantas columnas mi base de datos tiene mas

agradezco la ayuda, el problema se resumía a que el Rstudio me ponía unos paréntesis de forma automática los quite y asunto solucionado Saludos Enrique RAMOS El Lunes, 30 de mayo, 2016 12:26:33, Carlos J. Gil Bellosta <cgb en datanalytics.com> escribió: Hola, ¿qué tal? Mira el argumento fun.aggregate en ?dcast. Un saludo, Carlos J. Gil Bellostahttp://www.datanalytics.com El 30 de

Hola! Estoy empezando con R y tengo que analizar una base de datos sobre COVID. Una de las columnas recoge si los casos son de hombres o de mujeres y no sé cómo transformarlo en una columna que solo sume los casos totales, independientemente de si son hombres o mujeres (pero sí me interesa diferenciarlos por día y municipio, como ya aparecen). Adjunto pantallazo para hacer más comprensible mi

Estimado Javier Marcusi estoy intentando hacerlo con dcast ya logre que se realice la suma pero lo hace con la ultima columna y yo requiero que se haga el mismo proceso con varias columnas Saludos Enrique RAMOS El Martes, 31 de mayo, 2016 13:00:28, Javier Marcuzzi <javier.ruben.marcuzzi en gmail.com> escribió: Estimado Enrique Ramos Yo podría decir ¿y data.table?. Hay muchas

Hola a tod en s, tengo que hacer una operación con matrices que lleva un doble bucle. He intentado vectorizarlo pero sin mucho éxito con la función "Vectorize". ¿sabríais de alguna manera de evitar los bucles o de que funcionase Vectorize? Adjunto un ejemplo #................... vec1a <- as.vector(1:3) n1a <- 3 n2a <- 3 P1a <- matrix(rnorm(30),nrow=3) P2a <-

Hola, Vaya, en el código que he enviado, cusum no se incrementaba.. Y has indicado que se introduce un año más, con el mismo ID que el anterior y con la misma cantidad acumulada. Pero si el siguiente año es del mismo ID, acumula el valor de la cantidad que hemos introducido en esa fila... Con el siguiente código se resuelve este error y además ya está preparado para contemplar cualquier tipo de

Hola a todos. Estoy intentando implimentar un bucle que repita tantas veces un elemento como indique otro vector y me cree una tabla con ellos , por ejemplo: h<-c(1,2,3,1,2,3,1,1) g<-c(6,7,4,1,3,3,2,1) for(i in 1:sum(h)){ X <- rep(g[i], h[i]) as.vector(X)->X write.table(X, file="X.txt",append=TRUE,row.names=FALSE,col.names=FALSE, quote = FALSE) } Y no para de salirme:

El código que me olvide pegar input m <- structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 0, 0, 0, 0, 0, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5), .Dim = c(10L, 5L)) m ## output output <- c(1:3, 1:5, 1:2) output nfilas <- nrow(m) while(nfilas > 0) { diagonal <- diag(m)

Hola a todos, Necesito estimar dos parametros utilizando la función nlm; fit<-nlm(hood2par,c(x01[i],x02[j]),iterlim=300, catch=x[,c(3,4,5)],sp=.5) donde hood2par es una logística modificada. Pero en mi caso, la convergencia de nlm depende de los valores iniciales de dichos parámetros. Para buscar dichos valores iniciales de manera automática, genero dos vectores de valores iniciales

Soy novato, así que imagino que será muy fácil de resolver... Dataset$total <- with(Dataset, if (col>1) 5 else 6) Quiero guardar en la columna total, un 5 si col es mayor que 1 y sino que guarde un 6. Sólo me compara el primer dato de la primera fila, y lo copia para todas las demás. No me lo calcula fila a fila. ¿? [[alternative HTML version deleted]]

Buenas tardes para tod en s (de nuevo) Tengo el siguiente dataframe:

Buenas tardes, Estoy intentando mejorar un gráfico que construyo pero de manera "bruta" y quiere encontrar una manera más eficiente. El gráfico en cuestión tiene más partes pero para simplificar la parte que me interesa es esta: [image: Imágenes integradas 5] Esto es una elipse de confianza de unos puntos, la elipse la consigo ayudándome de dataEllipse (paquete car), para llegar a

Hola, Hola a todos, Os escribo porque no consigo finalizar el script necesario para realizar lo que a continuación planteo. Partiendo de un data frame (2 millones de casos), tengo: > datos2 ID FECHA YEAR CANTIDAD 1 100 2005-08-02 2005 1 2 100 2005-10-19 2005 2 3 100 2007-02-09 2007 1 4 100 2007-10-25 2007 1 5 100 2007-10-29 2007 1 6 120 2006-05-11

Estimada comunidad, tengo un problema que no puedo resolver. Tengo muchos archivos (los llamaremos "TMP") con los que debo construir un archivo resumen que llamare "DAT". A partir de los nombres de los archivos TMP construyo las primeras 4 columnas de DAT, luego, con datos del interior del archivo TMP construyo las columnas 5 a 9 de DAT. El problema insoluble que tengo es que

Hello, I need some help with regex. I have this to sentences. I need to extract both "49MU6300" and "LE32S5970" and put them in a new colum "SKU". A) SMART TV UHD 49'' CURVO 49MU6300 B) SMART TV HD 32'' LE32S5970 DataFrame for testing: ecommerce <- data.frame(a = c(1,2), producto = c("SMART TV UHD 49'' CURVO 49MU6300",

I want to fit the following model: > aov.madera <- aov(tiempo~producto/panel, data = madera) > anova(aov.madera) Analysis of Variance Table Response: tiempo Df Sum Sq Mean Sq F value Pr(>F) producto 2 93.631 46.815 63.0511 4.304e-07 *** producto:panel 9 43.533 4.837 6.5144 0.001881 ** Residuals 12 8.910 0.742 ---

Muchas gracias por la respuesta pero me da NA. ?Qu? puede ocurrir? Un saludo El 22/10/2018 a las 20:12, Jes?s Para Fern?ndez escribi?: > Puedes hacerlo pasando tus datos a data.frame > > library(data.table) > datos <- data.table(datos) > datos[Fecha >= '2016-12-21' & Fecha <= '2016-12-28',.(rating.sem = > mean(Rating)),by=Id.producto] > > Un

Buenas, ¿como puedo hacer que el bucle for se salte el error que salta cuando i<-0 en el codigo que paso?? count <- 0 for(i in -2:2){ z<-1/i z<-z*z modelo<-lm(z~1) } Gracias [[alternative HTML version deleted]]