From 5f2aa8f531526c246e471918aeb09676e2a05273 Mon Sep 17 00:00:00 2001
From: Reiko Okamoto <rokamoto@ohri.ca>
Date: Tue, 11 Aug 2026 10:21:53 -0400
Subject: [PATCH] rename sii to SII

---
 R/derive_sii.R                   | 2 +-
 tests/testthat/test-derive_sii.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/derive_sii.R b/R/derive_sii.R
index 85577bc..7c99137 100644
--- a/R/derive_sii.R
+++ b/R/derive_sii.R
@@ -60,7 +60,7 @@ derive_sii <- function(df) {
     derive_FO() |>
     derive_FS() |>
     dplyr::mutate(
-      sii = (.data$SO + .data$FO + .data$FS) / 3
+      SII = (.data$SO + .data$FO + .data$FS) / 3
     ) |>
     dplyr::select(-dplyr::all_of(c("SO", "FO", "FS")))
 
diff --git a/tests/testthat/test-derive_sii.R b/tests/testthat/test-derive_sii.R
index de00041..6689c60 100644
--- a/tests/testthat/test-derive_sii.R
+++ b/tests/testthat/test-derive_sii.R
@@ -482,7 +482,7 @@ test_that("derive_sii averages SO/FO/FS correctly", {
 
   # SO = 5.764167, FO = 5, FS = 10
   # (5.764167 + 5 + 10) / 3 = 6.921389
-  expect_equal(result$sii, 6.921389, tolerance = 1e-3)
+  expect_equal(result$SII, 6.921389, tolerance = 1e-3)
 })
 
 test_that("derive_sii drops intermediate columns", {