search for: reference_d

Displaying 5 results from an estimated 5 matches for "reference_d".

Did you mean: referenced
2024 Oct 07
1
Optimizar bucle for
...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ías respecto a la referencia diff_days <- as.numeric(difftime(subset_df$date[i], reference_date, units = "days")) # Si la diferencia es menor que el umbral, marcado para borra...
2011 Sep 15
1
bypass defualt scope.
...iveRecord::Base belongs_to :shop default_scope :order => ''updated_at DESC'' end in the Shop show view I have: - for document in @shop.documents %li(id="shop_documents")= link_to document.subject, shop_document_url(@shop, document) I want list document based on reference_date attribute and not using default scope. I''ve tried: def show @shop = Shop.unscoped.find(params[:id], :include => :documents, :order => "documents.reference_date") but don''t work. -- You received this message because you are subscribed to the Google Groups &q...
2024 Oct 07
1
Optimizar bucle for
...ada 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ías respecto a la referencia > diff_days <- as.numeric(difftime(subset_df$date[i], reference_date, > units = "days")) > > # Si la diferencia es menor...
2024 Oct 07
1
Optimizar bucle for
...)) { > > # 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ías respecto a la referencia > > diff_days <- as.numeric(difftime(subset_df$date[i], reference_date, > > units = "days")) > > > >...
2024 Oct 07
1
Optimizar bucle for
...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ías respecto a la referencia > > > diff_days <- as.numeric(difftime(subset_df$date[i], > reference_date, > > > units = "da...