# \donttest{
# Ensure that {accdata} package is available before running the example.
# If it is not, run install_accdata() to install the required package.
if (requireNamespace("accdata", quietly = TRUE)) {
data <- import_dataset("daily_acc_3d")
data <- remove_nonwear(data)
data <- filter_acc(data)
data <- find_peaks(data, vector = "vertical")
summarise_loading(
data,
variable = "acc", vector = "vertical",
ranges_acc = 1:5
)
}
# }
Run the code above in your browser using DataLab