[Pomp-commits] r338 - pkg/src

[noreply at r-forge.r-project.org]

Author: kingaa
Date: 2010-09-28 19:33:13 +0200 (Tue, 28 Sep 2010)
New Revision: 338

Modified:
   pkg/src/probe_marginal.c
Log:

- change names returned by 'probe.marginal'


Modified: pkg/src/probe_marginal.c
===================================================================
--- pkg/src/probe_marginal.c	2010-09-28 17:32:10 UTC (rev 337)
+++ pkg/src/probe_marginal.c	2010-09-28 17:33:13 UTC (rev 338)
@@ -68,7 +68,7 @@
   PROTECT(beta = NEW_NUMERIC(np)); nprotect++;
   PROTECT(beta_names = NEW_STRING(np)); nprotect++;
   for (i = 0; i < np; i++) {
-    snprintf(tmp,BUFSIZ,"od.%ld",i+1);
+    snprintf(tmp,BUFSIZ,"marg.%ld",i+1);
     SET_STRING_ELT(beta_names,i,mkChar(tmp));
   }
   SET_NAMES(beta,beta_names);