From d3621c76dcf1f3357ad239c41077516fa91adb61 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 19 Nov 2024 14:33:45 +0100
Subject: [PATCH] lintr

---
 R/methods_DirichletReg.R | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/R/methods_DirichletReg.R b/R/methods_DirichletReg.R
index 6f29780fd..2b9233702 100644
--- a/R/methods_DirichletReg.R
+++ b/R/methods_DirichletReg.R
@@ -83,10 +83,10 @@ standard_error.DirichletRegModel <- function(model, component = "all", ...) {
     SE = as.vector(model$se)
   )
 
-  if (!is.null(params$Component)) {
-    out$Component <- params$Component
-  } else {
+  if (is.null(params$Component)) {
     component <- "all"
+  } else {
+    out$Component <- params$Component
   }
 
   if (component != "all") {
@@ -111,10 +111,10 @@ p_value.DirichletRegModel <- function(model, component = "all", ...) {
     p = as.vector(2 * stats::pnorm(-abs(params$Estimate / model$se)))
   )
 
-  if (!is.null(params$Component)) {
-    out$Component <- params$Component
-  } else {
+  if (is.null(params$Component)) {
     component <- "all"
+  } else {
+    out$Component <- params$Component
   }
 
   if (component != "all") {