CopRe 0.2.1

blakemoya · May 21, 2024 · 159b879 · 159b879
1 parent 098ffed
commit 159b879
Show file tree

Hide file tree

Showing 7 changed files with 13 additions and 9 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: copre
 Type: Package
 Title: Tools for Nonparametric Martingale Posterior Sampling
-Version: 0.2.0
+Version: 0.2.1
 Authors@R: c(
     person("Blake", "Moya", email = "[email protected]",
            role = c("cre", "aut")),
@@ -22,7 +22,7 @@ Description: Performs Bayesian nonparametric density estimation using Martingale
  <doi:10.1080/01621459.1995.10476550>.
 License: GPL (>= 2)
 Encoding: UTF-8
-RoxygenNote: 7.2.2
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)
 LinkingTo:
   Rcpp,

diff --git a/NEWS.md b/NEWS.md
@@ -8,3 +8,8 @@
 * Created a base plot method and loosened dependency on `ggplot2`.
 * Minor bug fixes.
 * Added a `NEWS.md` file to track changes to the package.
+
+# copre 0.2.1
+
+* Fixed a Debian compile warning.
+* Typo corrections in documentation.
diff --git a/man/antimodes.Rd b/man/antimodes.Rd
diff --git a/man/copre-package.Rd b/man/copre-package.Rd
diff --git a/man/modes.Rd b/man/modes.Rd
diff --git a/man/register_s3_method.Rd b/man/register_s3_method.Rd
diff --git a/src/seqre.cpp b/src/seqre.cpp
@@ -117,7 +117,7 @@ seq_measure* get_seq(arma::uword seq_idx, arma::vec seq_pars,
       sq_pitmanyor* seq = new sq_pitmanyor();
       seq->d = seq_pars(0);
       if (seq_pars(0) < 0) {
-        seq->alpha = seq_pars(1) * abs(floor(seq_pars(0)));
+        seq->alpha = seq_pars(1) * fabs(floor(seq_pars(0)));
       } else {
         seq->alpha = seq_pars(1);
       }
@@ -170,15 +170,15 @@ Rcpp::List seqre_cpp(Rcpp::List phi, arma::uword n,
     arma::uword nn = n;
     double rat0 = (double)(arma::max(cnts)) / nn;
     double rat1 = (double)(arma::max(cnts_new)) / (nn + inc);
-    double score = abs(rat1 - rat0);
+    double score = fabs(rat1 - rat0);
     nn = nn + inc;
     while((score > eps) & (it < max_it)) {
       cnts = cnts_new;
       cnts_new = rnext(*seq, inc, cnts, true);
       it++;
       rat0 = (double)(arma::max(cnts)) / nn;
       rat1 = (double)(arma::max(cnts_new)) / (nn + inc);
-      score = abs(rat1 - rat0);
+      score = fabs(rat1 - rat0);
       nn = nn + inc;
     }
     cnts = cnts_new;