Displaying 6 results from an estimated 6 matches for "n_reg".
Did you mean:
s_reg
2024 Oct 07
1
Optimizar bucle for
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...
2024 Oct 07
1
Optimizar bucle for
...-01 1000 0
¿Sabes que puede estar pasando?
Muchas gracias por la ayuda y saludos!
On Mon, 7 Oct 2024 13:24:56 +0200
"Carlos J. Gil Bellosta" <gilbellosta en gmail.com> wrote:
> 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
>
&...
2024 Oct 07
1
Optimizar bucle for
...racias por la ayuda y saludos!
>
> On Mon, 7 Oct 2024 13:24:56 +0200
> "Carlos J. Gil Bellosta" <gilbellosta en gmail.com> wrote:
>
> > 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(d...
2024 Oct 07
1
Optimizar bucle for
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
2007 Feb 16
0
11 commits - libswfdec/swfdec_font.c libswfdec/swfdec_font.h libswfdec/swfdec_js_movie.c libswfdec/swfdec_script.c libswfdec/swfdec_script.h test/.gitignore test/trace
..._init_data (&bits, data, len);
function_name = swfdec_bits_get_string (&bits);
if (function_name == NULL) {
@@ -1650,17 +1678,30 @@ swfdec_action_print_define_function (gui
}
n_args = swfdec_bits_get_u16 (&bits);
g_string_append_c (string, '(');
+ if (v2) {
+ /* n_regs = */ swfdec_bits_get_u8 (&bits);
+ /* flags = */ swfdec_bits_get_u16 (&bits);
+ }
for (i = 0; i < n_args; i++) {
- const char *arg_name = swfdec_bits_get_string (&bits);
- if (arg_name == NULL || *arg_name == '\0') {
+ guint preload;
+ const char *arg_nam...
2007 Apr 04
0
Branch 'as' - 4 commits - libswfdec/Makefile.am libswfdec/swfdec_as_context.c libswfdec/swfdec_as_frame.c libswfdec/swfdec_as_interpret.c libswfdec/swfdec_as_interpret.h libswfdec/swfdec_as_object.c libswfdec/swfdec_as_types.c libswfdec/swfdec_as_types.h
...ts.
+ * This can be useful to find out about unimplemented native properties,
+ * but usually just causes a lot of spam. */
+//#define SWFDEC_WARN_MISSING_PROPERTIES
+
+/*** SUPPORT FUNCTIONS ***/
+
+#define swfdec_action_has_register(cx, i) \
+ ((i) < ((SwfdecScript *) (cx)->fp->swf)->n_registers)
+
+static SwfdecMovie *
+swfdec_action_get_target (SwfdecAsContext *context)
+{
+ SwfdecAsObject *object = context->frame->scope;
+
+ if (!SWFDEC_IS_MOVIE (object)) {
+ SWFDEC_ERROR ("no valid target");
+ return NULL;
+ }
+ return SWFDEC_MOVIE (object);
+}
+
+#if 0...