feat: check mclust method data for equal length and spaced trajectori…

…es (#138)
philips-software · Sep 18, 2023 · 7354054 · 7354054
1 parent d8b748f
commit 7354054
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/R/methodMclustLLPA.R b/R/methodMclustLLPA.R
@@ -81,10 +81,13 @@ setMethod('prepareData', 'lcMethodMclustLLPA', function(method, data, verbose, .
   assert_that(noNA(data[[valueColumn]]), msg = 'data contains missing values')
 
   # Data
-  wideFrame = as.data.table(data) %>%
-    data.table::dcast(get(idVariable(method)) ~ get(timeVariable(method)), value.var = valueColumn)
-  e$data = as.matrix(wideFrame[, -'method']) %>%
-    set_rownames(wideFrame$method)
+  e$data = tsmatrix(
+    data,
+    response = responseVariable(method),
+    id = idVariable(method),
+    time = timeVariable(method),
+    fill = FALSE
+  )
 
   return(e)
 })