fix copy&paste typo

SeverinBang · SeverinBang · commit a89c00687972 · 2025-02-27T11:41:14.000+01:00
diff --git a/R/statistics.R b/R/statistics.R
@@ -441,7 +441,7 @@ profile <- function(obj, pars, whichPar, alpha = 0.05,
                               }
                             }
                             
-                            if (side %in% c("right", "both")) {
+                            if (side %in% c("left", "both")) {
                               # Compute left profile
                               if (verbose) {
                                 cat("\nCompute left profile\n")

Original file line number	Diff line number	Diff line change
`@@ -441,7 +441,7 @@ profile <- function(obj, pars, whichPar, alpha = 0.05,`
`441`	`441`	`}`
`442`	`442`	`}`
`443`	`443`
`444`		`- if (side %in% c("right", "both")) {`
	`444`	`+ if (side %in% c("left", "both")) {`
`445`	`445`	`# Compute left profile`
`446`	`446`	`if (verbose) {`
`447`	`447`	`cat("\nCompute left profile\n")`