Displaying 5 results from an estimated 5 matches for "reference_date".
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 borrar...
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 "...
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 que...
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 = "days&...