A convenience wrapper function for extracting interpretable features from triaxial accelerometer data collected through smartphones.
accelerometer_features( sensor_data, time_filter = NULL, detrend = F, frequency_filter = NULL, IMF = 1, window_length = NULL, window_overlap = NULL, derived_kinematics = F, funs = NULL, models = NULL )
sensor_data | An |
---|---|
time_filter | A length 2 numeric vector specifying the time range
of measurements to use during preprocessing and feature extraction after
normalizing the first timestamp to 0. A |
detrend | A logical value indicating whether to detrend the signal. By default the value is FALSE. |
frequency_filter | A length 2 numeric vector specifying the frequency range
of the signal (in hertz) to use during preprocessing and feature extraction.
A |
IMF | The number of IMFs used during an empirical mode decomposition (EMD) transformation. The default value of 1 means do not apply EMD to the signal. |
window_length | A numerical value representing the length (in number of samples)
of the sliding window used during the windowing transformation. Both
|
window_overlap | Fraction in the interval [0, 1) specifying the amount of
window overlap during a windowing transformation.
Both |
derived_kinematics | A logical value specifying whether to add derived
kinematic measurements ( |
funs | A function or list of functions that each accept a single numeric
vector as input. Each function should return a dataframe of features
(normally a single-row datafame, with column names as feature names).
The input vectors will be the axial measurements from |
models | A function or list of functions that each accept
|
A list of accelerometer features. The output from funs
will
be stored under $extracted_features
and the output from models
will be stored under $model_features
. If there is an error during
extraction, the returned result will be stored under $error
.
accel_features <- accelerometer_features(accelerometer_data)#>accel_features <- accelerometer_features(accelerometer_data, IMF = 3)#>accel_features <- accelerometer_features( accelerometer_data, time_filter = c(2, 5), detrend = TRUE, frequency_filter = c(4, 16), window_length = 256, window_overlap = 0.5, derived_kinematics = TRUE, funs = time_domain_summary)#>