fix linter

insightsengineering · Dec 6, 2023 · 46f080f · 46f080f
1 parent 9fd45a9
commit 46f080f
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/R/estimateParams.R b/R/estimateParams.R
@@ -76,11 +76,15 @@ prepareData <- function(data) {
 #' )
 #' negLogLik(transition, prepareData(simData))
 negLogLik <- function(transition, data) {
-  with(data, -sum(log(haz(transition, exit, trans)^status
-    * survTrans(transition, exit, trans) / survTrans(transition, entry, trans))))
+  with(
+    data,
+    -sum(log(
+      haz(transition, exit, trans)^status * survTrans(transition, exit, trans) /
+        survTrans(transition, entry, trans)
+    ))
+  )
 }
 
-
 #' Hazard Function for Different Transition Models
 #'
 #' @param transition (`ExponentialTransition` or `WeibullTransition`)\cr