search for: bucles

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]]

Buenos días: A ver.... una duda muy general, y otra más específica... Después de haber conseguido tratar con R.... y hacer un script de 161 páginas... es hora de empezar a hacer bucles para reducirlo a menos de 5 hojas.... el primer problema que me encuentro es que se queja de que el vector de datos que intruduzco (una base de datos de 11 años) es demasiado grande; tengo segun R... un vector de 31,5 Mb... y no lo quiere abrir... ¿cuál es el límite? y segundo.... para evitar el e...

Amigos de la erre. He creado mi primer bucle con for para entrenar unos modelos con GAM. La respuesta es quasipoisson porque estoy trabajando con densidades de peces. Sin embargo, tengo un problema, no se muy bien como añadir el offset a la formula siguiente cuando creo el bucle. GAM.A1 <-gam ((DYO)~s(DMA,k=4)+ s(WOD,k=4)+s(CIN,k=4)+s(DRA,k=4)+s(DBR,k=4)

Hola a todos: Tengo un bucle que tarda horas y me gustaría optimizarlo. Me explico. Simplificando, tengo una tabla con 332.505 registros de 63.738 individuos. Cada registro es una medida realiza de unos días a unos meses o años después de la anterior. Lo que quiero es borrar aquellos registros que entre él y el anterior hayan transcurrido menos de 6 meses, de manera que me quede una tabla con

Buena noche a todos, Nuevamente requiero de su ayuda con algo puntual: 1. Tengo en el vector Muestras: rm(list = ls()) set.seed(2085089)# Fija Datos data<-matrix(-1,30,ncol=10) > MuestraS [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [1,] 1 0 0 0 1 1 0 1 1 1 Ahora, dentro de un bucle for voy a generar muestras aleatorias, pero requiero que

Otra opcio es no incluir en 0 For (i in c(-2,-1,1,2) El 12 jun. 2017 14:43, <Guillermo.Vinue en uv.es> escribió: Hola, Creo que sería añadir if(i == 0) next Saludos, Guillermo > 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 >

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:

Amigos de la erre. He creado mi primer bucle con for para entrenar unos modelos con GAM. La respuesta es quasipoisson porque estoy trabajando con densidades de peces. Sin embargo, tengo un problema, no se muy bien como añadir el offset a la formula siguiente cuando creo el bucle. GAM.A1 <-gam ((DYO)~s(DMA,k=4)+ s(WOD,k=4)+s(CIN,k=4)+s(DRA,k=4)+s(DBR,k=4)

Hola, ¿qué tal? Modifica esto: ---- library(plyr) n_reg <- 332505 n_ids <- 63738 dif_days <- 90 df <- data.frame( id = sample(n_ids, n_reg, replace = T), dates = sample(1000, n_reg, replace = T) ) # important! df <- df[order(df$id, df$date),] n_borrar <- 1 while (n_borrar > 0) { df <- ddply(df, .(id), transform, delta = c(1000, diff(dates))) # find the

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

Muchas gracias, Carlos, por esta ayuda! Desconocia la existencia de ddply y me cuesta interpretar el código. Estoy en ello. Realmente es mucho, pero mucho, más rápido. El problema es que si lo aplico a la tabla dde pruebas: id dates 1 1 2023-01-01 2 1 2023-05-15 3 1 2023-12-01 4 2 2023-01-01 5 2 2023-04-01 6 2 2023-12-01 7 1 2023-03-15 8 3 2023-01-01 dif_days <- 180 #

He encontrado la respuesta. EL ejemplo que puse era trivial, ya que es obvio que if(i ==0) entonces next, pero me referia a sin saber si va a ser error el modelo o no. Para esto he encontrado la solución for(i in -3:3){ tryCatch({ z<-1/i > z<-z*z > modelo<-lm(z~1) }, error=function(e){print("es un error"}) } Gracias de todas maneras!!!!! Jesús

Hola, Una forma puede ser la siguiente... Para comparar, he creado una nueva columna "new_zona" que es la que se va rellenando con un bucle... #------------------- > cont <- 1 > new_zona <- 0 > for(i in 1:nrow(data)) { + new_zona[i] <- cont + if(data$Subzona[i] == 1 & i > 1) { + cont <- cont + 1 + new_zona[i] <- cont + } + } > >

...e llevan a la convergencia de la función: for (i in 1:length(x01)) { for (j in 1:length(x02)) { fit<-NULL #genero un objeto nulo llamado fit try(fit<-nlm(hood2par,c(x01[i],x02[j]),iterlim=300, catch=x[,c(3,4,5)],sp=.5),silent=TRUE) # Con try, evito la rotura de los #bucles cuando nlm no converge stopifnot(is.null(fit)) # si finalmente converge ("fit" ya no es nulo) rompo los bucles con stopifnot } } Cuando fit no es NULL, stopifnot rompe el bucle. El problema que tengo es que cuando trato de embeber la rutina anterior en una función: FFF<-function(x...

Prueba así: --- dif_days <- 180 # Cambiado 6 meses df <- data.frame( id = c(1, 1, 1, 2, 2, 2, 1, 3), dates = as.Date(c("2023-01-01", "2023-05-15", "2023-12-01", "2023-01-01", "2023-04-01", "2023-12-01", "2023-03-15", "2023-01-01")) ) # important! df <- df[order(df$id, df$dates),] n_borrar

Hola chic en s, querría construir mi primera función, y tengo una duda respecto al comando par( mfrow =c(3,3)). Primero de todo, tengo una tabla con 10 variables, para cada variable, unos 145 datos. Quiero representar para cada variable su gráfica de dispersión respecto a las demás. Es decir, coger la primera variable y la segunda, y hacer gráfica, coger la primera variable y la tercera, y hacer

Hola, quiero obtener la suma del producto de los elementos de un vector y cuando construyo el código me aparecen una serie de NA que me impiden calcular la suma. ¿Alguna sugerencia? El código es el siguiente: x<- c(24,12,45,68,45) n<-length(x) res<-numeric() for(i in 1:n-1){ for(j in i+1:n){ res<- sum(x[i]*x[j]) print(res) } } res [[alternative HTML version deleted]]

Hola, Tengo un conjunto de bases de datos de una encuesta industrial para diferentes años (1995-2014). Las bases de datos están en formato .mdb. A su vez, cada base de datos tiene 3 tablas con una variable "ID" común (la "llave") para vincular las tablas. Quiero realizar análisis estadísticos para analizar la evolución de ciertas variables. Quiero armar un dataframe que

Estimados compañeros, hoy me ha surgido una duda, quizás trivial, pero que no encuentro sentido. Tengo un bucle con el siguiente código: for (i in 1:n) { if (rango_inr1[i]==1 & (inr[i]>= 2 & inr[i]<= 3)) cinr[i]<-1 if (rango_inr1[i]==2 & (inr[i]>= 2.5 & inr[i]<= 3.5)) cinr[i]<-2 if (rango_inr1[i]==3 & (inr[i]>= 2 & inr[i]<= 2.9)) cinr[i]<-3 if

Estimados me pueden ayudar con el siguiente problema, necesito reducir lineas de programación mediante un bucle, las instrucciones que estoy realizando son: matriz_lambda<-matrix(NA,32,19) m_lambda_b<-matrix(NA,32,19) for(i in 1:32){ if(i<32){ matriz_lambda[i,1]<-sum(matriz5[i,c((i+1):32)]) matriz_lambda[i,2]<-sum(matriz6[i,c((i+1):32)])