diff --git a/R/calc_lbw.R b/R/calc_lbw.R
index 29dadda..0ed2582 100755
--- a/R/calc_lbw.R
+++ b/R/calc_lbw.R
@@ -44,7 +44,7 @@ calc_lbw <- function (
     } else {
       if(method == "boer") {
         if(sex == "male") {
-          lbm <-  0.407 * weight + 0.237 * height - 19.2
+          lbm <-  0.407 * weight + 0.267 * height - 19.2
         } else {
           lbm <-  0.252 * weight + 0.473 * height - 48.3
         }
diff --git a/tests/testthat/test_calc_lbw.R b/tests/testthat/test_calc_lbw.R
index 9caf766..999dbbd 100644
--- a/tests/testthat/test_calc_lbw.R
+++ b/tests/testthat/test_calc_lbw.R
@@ -17,3 +17,14 @@ test_that("LBW calculation works", {
     class(calc_lbw(weight = 50, height = 150, sex = "male")) == "list"
   )
 })
+
+test_that("LBW calculation works, boer", {
+  expect_equal(
+    calc_lbw(weight = 65, height = 155, sex = "male", method = "boer")$value,
+    48.6
+  )
+  expect_equal(
+    calc_lbw(weight = 65, height = 155, sex = "female", method = "boer")$value,
+    41.4
+  )
+})