search for: difye

Displaying 3 results from an estimated 3 matches for "difye".

2014 Mar 12
3
Frecuencia absoluta acumulada por individuo y por año
...> > > # Código > > library(sqldf) > > df.tmp <- sqldf("select ID,YEAR, sum(CANTIDAD) as cusum from datos2 group by ID,YEAR > order by ID,YEAR") > > > for(i in 1:nrow(df.tmp)) { > if(i==1 ) { > df.tmp$difID[i] <- 0 > df.tmp$difYE[i] <- 0 > > } > else{ > > if(df.tmp$ID[i]!=df.tmp$ID[i-1] & (df.tmp$YEAR[i]-df.tmp$YEAR[i-1] <0)) { > df.tmp$difID[i] <- 0 > df.tmp$difYE[i] <- 0 > } else { > df.tmp$difID[i] <- df.tmp$ID[i] -...
2014 Mar 10
3
Frecuencia absoluta acumulada por individuo y por año
...# Y que la última fila "120 2007" pasa a ser "120 2014" df.tmp[4,2] <- c(2014) #----------------------- quitar filas anteriores #------- Primer bucle para detectar los saltos en los años for(i in 1:nrow(df.tmp)) { if(i==1 ) { df.tmp$difID[i] <- 0 df.tmp$difYE[i] <- 0 } else{ if(df.tmp$ID[i]!=df.tmp$ID[i-1] & (df.tmp$YEAR[i]-df.tmp$YEAR[i-1] < 0)) { df.tmp$difID[i] <- 0 df.tmp$difYE[i] <- 0 } else { df.tmp$difID[i] <- df.tmp$ID[i] - df.tmp$ID[i-1] df.tmp$difYE[...
2014 Mar 10
4
Frecuencia absoluta acumulada por individuo y por año
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