lintr

strengejacke · strengejacke · commit d3621c76dcf1 · 2024-11-19T14:33:45.000+01:00
diff --git 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") {

Original file line number	Diff line number	Diff line change
`@@ -83,10 +83,10 @@ standard_error.DirichletRegModel <- function(model, component = "all", ...) {`
`83`	`83`	`SE = as.vector(model$se)`
`84`	`84`	`)`
`85`	`85`
`86`		`- if (!is.null(params$Component)) {`
`87`		`- out$Component <- params$Component`
`88`		`- } else {`
	`86`	`+ if (is.null(params$Component)) {`
`89`	`87`	`component <- "all"`
	`88`	`+ } else {`
	`89`	`+ out$Component <- params$Component`
`90`	`90`	`}`
`91`	`91`
`92`	`92`	`if (component != "all") {`
`@@ -111,10 +111,10 @@ p_value.DirichletRegModel <- function(model, component = "all", ...) {`
`111`	`111`	`p = as.vector(2 * stats::pnorm(-abs(params$Estimate / model$se)))`
`112`	`112`	`)`
`113`	`113`
`114`		`- if (!is.null(params$Component)) {`
`115`		`- out$Component <- params$Component`
`116`		`- } else {`
	`114`	`+ if (is.null(params$Component)) {`
`117`	`115`	`component <- "all"`
	`116`	`+ } else {`
	`117`	`+ out$Component <- params$Component`
`118`	`118`	`}`
`119`	`119`
`120`	`120`	`if (component != "all") {`