Displaying 4 results from an estimated 4 matches for "subset_df".
2024 Oct 07
1
Optimizar bucle for
...t;)),
BORRAR = 0)
## El código con el bucle (doble bucle) es:
# Definir umbral : 6 meses: si registro posterior menor 6 meses: borrar
umbral <- 30.5 * 6
# Ordenar por ID i fecha
df <- df[order(df$ID, df$date), ]
# Bucle per cada ID
for (id in unique(df$ID)) {
# Filtrar per ID actual
subset_df <- df[df$ID == id, ]
# Si hay más de un registro borrar aquellos de más de 6 meses
if (nrow(subset_df) > 1) {
# Inicializar la referencia del primer registro no borrado
reference_date <- subset_df$date[1]
for (i in 2:nrow(subset_df)) {
# Calcular la diferencia en dí...
2024 Oct 07
1
Optimizar bucle for
...e bucle) es:
>
> # Definir umbral : 6 meses: si registro posterior menor 6 meses: borrar
> umbral <- 30.5 * 6
>
> # Ordenar por ID i fecha
> df <- df[order(df$ID, df$date), ]
>
> # Bucle per cada ID
> for (id in unique(df$ID)) {
> # Filtrar per ID actual
> subset_df <- df[df$ID == id, ]
>
> # Si hay más de un registro borrar aquellos de más de 6 meses
> if (nrow(subset_df) > 1) {
> # Inicializar la referencia del primer registro no borrado
> reference_date <- subset_df$date[1]
>
> for (i in 2:nrow(subset_df)) {
>...
2024 Oct 07
1
Optimizar bucle for
...eses: si registro posterior menor 6 meses: borrar
> > umbral <- 30.5 * 6
> >
> > # Ordenar por ID i fecha
> > df <- df[order(df$ID, df$date), ]
> >
> > # Bucle per cada ID
> > for (id in unique(df$ID)) {
> > # Filtrar per ID actual
> > subset_df <- df[df$ID == id, ]
> >
> > # Si hay más de un registro borrar aquellos de más de 6 meses
> > if (nrow(subset_df) > 1) {
> > # Inicializar la referencia del primer registro no borrado
> > reference_date <- subset_df$date[1]
> >
> >...
2024 Oct 07
1
Optimizar bucle for
...rrar
> > > umbral <- 30.5 * 6
> > >
> > > # Ordenar por ID i fecha
> > > df <- df[order(df$ID, df$date), ]
> > >
> > > # Bucle per cada ID
> > > for (id in unique(df$ID)) {
> > > # Filtrar per ID actual
> > > subset_df <- df[df$ID == id, ]
> > >
> > > # Si hay más de un registro borrar aquellos de más de 6 meses
> > > if (nrow(subset_df) > 1) {
> > > # Inicializar la referencia del primer registro no borrado
> > > reference_date <- subset_df$date[1...