Running examples in ‘MIMSunit-Ex.R’ failed
The error most likely occurred in:

> ### Name: mims_unit
> ### Title: Compute Monitor Independent Motion Summary unit (MIMS-unit)
> ### Aliases: mims_unit mims_unit_from_files
> 
> ### ** Examples
> 
>   # Use sample data for testing
>   df = sample_raw_accel_data
> 
>   # compute mims unit values and output axial values
>   output = mims_unit(df, epoch = '1 sec', dynamic_range=c(-8, 8), output_mims_per_axis=TRUE)
================================
 *** caught segfault ***
address 1, cause 'memory not mapped'

Traceback:
 1: gc()
 2: extrapolate_single_col(t, col_data[[1]], ...)
 3: .fun(piece, ...)
 4: (function (i) {    piece <- pieces[[i]]    if (.inform) {        res <- try(.fun(piece, ...))        if (inherits(res, "try-error")) {            piece <- paste(utils::capture.output(print(piece)),                 collapse = "\n")            stop("with piece ", i, ": \n", piece, call. = FALSE)        }    }    else {        res <- .fun(piece, ...)    }    progress$step()    res})(1L)
 5: loop_apply(n, do.ply)
 6: llply(.data = pieces, .fun = .fun, ..., .progress = .progress,     .inform = .inform, .parallel = .parallel, .paropts = .paropts)
 7: plyr::alply(values, .margins = 2, function(col_data) {    col_name <- names(col_data)[1]    output <- extrapolate_single_col(t, col_data[[1]], ...)    colnames(output) <- c(colnames(df)[1], col_name)    return(output)})
 8: extrapolate(df, dynamic_range, noise_level, k, spar)
 9: custom_mims_unit(df = df, epoch = epoch, dynamic_range = dynamic_range,     noise_level = 0.03, k = 0.05, spar = 0.6, filter_type = "butter",     cutoffs = c(0.2, 5), axes = c(2, 3, 4), use_extrapolation = TRUE,     use_filtering = TRUE, combination = "sum", allow_truncation = TRUE,     output_mims_per_axis = output_mims_per_axis, output_orientation_estimation = FALSE,     before_df = before_df, after_df = after_df, use_gui_progress = use_gui_progress,     st = st, use_snapshot_to_check = use_snapshot_to_check)
10: mims_unit(df, epoch = "1 sec", dynamic_range = c(-8, 8), output_mims_per_axis = TRUE)
An irrecoverable exception occurred. R is aborting now ...