Added citation

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gpindex
 Title: Generalized Price and Quantity Indexes
-Version: 0.5.0.9007
+Version: 0.5.0.9008
 Authors@R: c(
     person("Steve", "Martin", role = c("aut", "cre", "cph"), email = "[email protected]", comment = c(ORCID = "0000-0003-2544-9480"))
     )

README.Rmd

@@ -25,11 +25,19 @@ A small package for calculating lots of different price indexes, and by extensio
 
 ## Installation
 
+Get the stable release from CRAN.
+
 ```{r, eval = FALSE}
 install.packages("gpindex")
 ```
 
-The development version can be installed from GitHub.
+The development version can be installed from R-Universe
+
+```{r, eval = FALSE}
+install.packages("gpindex", repos = c("https://marberts.r-universe.dev", "https://cloud.r-project.org"))
+```
+
+or directly from GitHub.
 
 ```{r, eval = FALSE}
 pak::pak("marberts/gpindex")

README.md

@@ -23,11 +23,19 @@ der Lippe (2001), and the CPI manual (2020) for bilateral price indexes.
 
 ## Installation
 
+Get the stable release from CRAN.
+
 ``` r
 install.packages("gpindex")
 ```
 
-The development version can be installed from GitHub.
+The development version can be installed from R-Universe
+
+``` r
+install.packages("gpindex", repos = c("https://marberts.r-universe.dev", "https://cloud.r-project.org"))
+```
+
+or directly from GitHub.
 
 ``` r
 pak::pak("marberts/gpindex")

inst/CITATION

@@ -0,0 +1,10 @@
+bibentry(
+  bibtype  = "Manual",
+  title    = "{gpindex}: Generalized Price and Quantity Indexes",
+  author   = person("Steve", "Martin", role = c("aut", "cre", "cph"),
+                    comment = c(ORCID = "0000-0003-2544-9480")),
+  year     = "2023",
+  doi      = "10.5281/zenodo.10097742",
+  url      = "https://cran.r-project.org/package=gpindex",
+  note     = sprintf("R package version %s", meta$Version)
+)

tests/testthat/test-means.R

@@ -295,6 +295,14 @@ test_that("grouping and balacing work", {
     balanced(fisher_mean)(
       c(1, NA, 3, 4), c(NA, 1, 1, 2), c(1, 2, NA, 4), na.rm = TRUE
     ), 4)
+  expect_equal(
+    balanced(fisher_mean)(x, xna, na.rm = TRUE),
+    sum(balanced(fisher_contributions)(x, xna, na.rm = TRUE)) + 1
+  )
+  expect_equal(
+    balanced(fisher_mean)(x, xna, na.rm = TRUE),
+    sum(balanced(fisher_contributions2)(x, xna, na.rm = TRUE)) + 1
+  )
 })
 
 test_that("error happen when expected", {