need to split particle_error before reassigning particle

uataq · Sep 24, 2024 · 5ab1d56 · 5ab1d56
1 parent ee05e64
commit 5ab1d56
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/r/src/read_traj.r b/r/src/read_traj.r
@@ -90,9 +90,9 @@ read_traj <- function(file) {
     # Handle particle error data
     err_cols <- grepl('_err$', names(particle))
     if (any(err_cols)) {
-      # Split particle data into particle and particle_error
-      particle <- particle[!err_cols]
+      # Split particle data into particle_error and particle
       particle_error <- particle[err_cols]
+      particle <- particle[!err_cols]
 
       # Strip '_err' from particle_error names
       names(particle_error) <- gsub('_err$', '', names(particle_error))