fix bug when assigning colnames to data after imputing missing data

Author: jhmigueles

R/ReadAndCalibrate.R

@@ -131,7 +131,7 @@ ReadAndCalibrate = function(file, sf, blocksize, blocknumber, inspectfileobject,
         if (ncol(S) == (ncol(data) - 1)) {
           # this block has time gaps while the previous block did not
           S = cbind(S, 1)
-          colnames(S)[4] = "remaining_epochs"
+          colnames(S)[ncol(S)] = "remaining_epochs"
         }
       } else if ("remaining_epochs" %in% colnames(S)) {
         if ((ncol(S) - 1) == ncol(data)) {

R/runActimetric.R

@@ -217,9 +217,8 @@ runActimetric = function(input_directory = NULL, output_directory = NULL, studyn
       hvars = GGIR::g.extractheadervars(I)
       sf = I$sf
       # Extract parameters for reading file in chunks as in GGIR R package
-      readParams = GGIR::get_nw_clip_block_params(chunksize = 1, dynrange = 8,
-                                                  monc = I$monc, dformat = I$dformc,
-                                                  sf = sf, rmc.dynamic_range = NULL)
+      readParams = GGIR::get_nw_clip_block_params(monc = I$monc, dformat = I$dformc,
+                                                  sf = sf, params_rawdata = GGIR::load_params()$params_rawdata)
       blocksize = readParams$blocksize
       isLastBlock = FALSE
       blocknumber = 1; iteration = 1