Remove redundant variable in sse.sample()

special-uor · Nov 24, 2022 · 44788f9 · 44788f9
1 parent 4dc191d
commit 44788f9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/fxTWAPLS.R b/R/fxTWAPLS.R
@@ -1505,8 +1505,8 @@ sse.sample <- function(modern_taxa,
                             }
 
   avg.xboot <- rowMeans(xboot, na.rm = TRUE)
-  v1 <- boot.mean.square <- rowMeans((xboot - avg.xboot) ^ 2 , na.rm = TRUE)
-  return(sqrt(v1))
+  boot.mean.square <- rowMeans((xboot - avg.xboot) ^ 2 , na.rm = TRUE)
+  return(sqrt(boot.mean.square))
 }
 
 #' Leave-one-out cross-validation