From 7af28b9a06d9c6d1cb073684d0cb8a2c363b5403 Mon Sep 17 00:00:00 2001
From: Ivan Svetunkov <i.svetunkov@lancaster.ac.uk>
Date: Wed, 28 Aug 2024 11:12:43 +0100
Subject: [PATCH] Missin semicolon

---
 R/dsrboot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/dsrboot.R b/R/dsrboot.R
index 17e319b..fa111c5 100644
--- a/R/dsrboot.R
+++ b/R/dsrboot.R
@@ -271,7 +271,7 @@ dsrboot <- function(y, nsim=100, intermittent=TRUE,
     if(obsInsample>1){
         # Make sure that the SD of the data is constant
         yNewSD <- sqrt(apply((yNew - yTransformed)^2, 1, mean, na.rm=TRUE));
-        yNew[] <- yTransformed + (mean(yNewSD, na.rm=TRUE)/(yNewSD)) * (yNew - yTransformed)
+        yNew[] <- yTransformed + (mean(yNewSD, na.rm=TRUE)/(yNewSD)) * (yNew - yTransformed);
     }
 
     if(type=="multiplicative"){