small change

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: pomp
 Type: Package
 Title: Statistical Inference for Partially Observed Markov Processes
-Version: 6.0.3.0
-Date: 2024-12-19
+Version: 6.0.3.1
+Date: 2024-12-28
 Authors@R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),email="[email protected]",comment=c(ORCID="0000-0001-6159-3207")),
 	  person(given=c("Edward","L."),family="Ionides",role="aut",comment=c(ORCID="0000-0002-4190-0174"))	,
 	  person(given="Carles",family="Bretó",role="aut",comment=c(ORCID="0000-0003-4695-4902")),

src/distributions.c

@@ -70,19 +70,17 @@ SEXP D_Euler_Multinom (SEXP x, SEXP size, SEXP rate, SEXP deltat, SEXP log) {
 
 SEXP E_Euler_Multinom (SEXP size, SEXP rate, SEXP deltat) {
   int ntrans = length(rate);
-  SEXP x, nm;
+  SEXP x;
   if (length(size)>1)
     warn("in 'eeulermultinom': only the first element of 'size' is meaningful");
   if (length(deltat)>1)
     warn("in 'eeulermultinom': only the first element of 'dt' is meaningful");
   PROTECT(size = AS_NUMERIC(size));
   PROTECT(rate = AS_NUMERIC(rate));
   PROTECT(deltat = AS_NUMERIC(deltat));
-  PROTECT(x = NEW_NUMERIC(ntrans));
-  PROTECT(nm = GET_NAMES(rate));
-  SET_NAMES(x,nm);
+  PROTECT(x = duplicate(rate));
   eeulermultinom(ntrans,*REAL(size),REAL(rate),*REAL(deltat),REAL(x));
-  UNPROTECT(5);
+  UNPROTECT(4);
   return x;
 }