fix typo sii/rii

Author: AntiportaD

R/rii.R

@@ -250,7 +250,7 @@
       se.formula <- lnriie$std.error
       cilevel <- 1 - ((1 - conf.level) / 2)
       ci <- list(l = est_rii - se.formula * qnorm(cilevel),
-                 u = est_rii - se.formula * qnorm(cilevel))
+                 u = est_rii + se.formula * qnorm(cilevel))
 
     } else{ #For survey
       tids <- if(is.null(psu)) {

tests/testthat/test-sii.R

@@ -21,7 +21,7 @@ test_that("sii function calculates SII correctly", {
 
   # Expected values
   expected_sii <- 44.44502
-  expected_se <- 2.190822
+  expected_se <- 0.02190822
   expected_lowerci <- 40.15109
   expected_upperci <- 48.73895