data-raw/DATASET.R

In jhmigueles/actilifecounts: Generate Activity Counts from Raw Accelerometer Data

# Band pass filter coefficients -----------------------------------------
# There are extraneous coefficients as to match constants in ActiLife.
# Input data coefficients.
input_coeffs = c(-0.009341062898525,
                 -0.025470289659360,
                 -0.004235264826105,
                 0.044152415456420,
                 0.036493718347760,
                 -0.011893961934740,
                 -0.022917390623150,
                 -0.006788163862310,
                 0.000000000000000)
# output data coefficients
output_coeffs = c(1.00000000000000000000,
                  -3.63367395910957000000,
                  5.03689812757486000000,
                  -3.09612247819666000000,
                  0.50620507633883000000,
                  0.32421701566682000000,
                  -0.15685485875559000000,
                  0.01949130205890000000,
                  0.00000000000000000000)

# store as internal data
usethis::use_data(input_coeffs, output_coeffs,
                  internal = TRUE, overwrite = TRUE)