Description Usage Arguments Value Examples
Compute physical activity summaries of minute level activity data.
1 2 3 4 5 6 7 8 9 10 11 12 |
acc |
A numeric vector. A minute-level activity counts data vector.
It is assumed
to be in midnight-to-midnight format, meaning its vector length
is a multiple of number of minutes in a full day
(1440). See |
acc_ts |
A POSIXct vector. Time of activity data collection, corresponding to
|
wear_flag |
An integer vector. It has value |
valid_day_flag |
An integer vector. It has value |
sedentary_thresh |
A numeric scalar. If an activity count value falls
below it then a corresponding minute is characterized as sedentary; otherwise,
a corresponding minute is characterized as active. Default is |
subset_minutes |
Integer vector. Contains subset of a day's minutes
within which activity summaries are to be computed. May take values from
|
exclude_minutes |
Integer vector. Contains subset of a day's minutes
to be excluded from activity summaries computation.
May take values from
|
in_bed_time |
A POSIXct vector. An estimated in-bed time start.
Together with a corresponding entry from |
out_bed_time |
A POSIXct vector. An estimated in-bed time end.
Together with a corresponding entry from |
adjust_out_colnames |
A logical scalar. Whether or not to
add an informative suffix to column names in the output data frame.
This may happen in case
any of the arguments:
|
A data frame with physical activity summaries of minute level activity data. See README or vignette for summaries description.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ## Read exemplary data
fpath_i <- system.file("extdata", extdata_fnames[1], package = "arcstats")
dat_i <- as.data.frame(data.table::fread(fpath_i))
acc <- dat_i$vectormagnitude
acc_ts <- lubridate::ymd_hms(dat_i$timestamp)
## Get acc data vector in "midnight_to_midnight" format
acc <- midnight_to_midnight(acc, acc_ts)
## Get wear/non-wear flag
wear_flag <- get_wear_flag(acc)
## Get valid/non-valid day flag
valid_day_flag <- get_valid_day_flag(wear_flag)
## Impute missing data in acc data vector
acc_imputed <- impute_missing_data(acc, wear_flag, valid_day_flag)
## Example 1
## Summarize PA
summarize_PA(acc, acc_ts, wear_flag, valid_day_flag)
## Example 2
## Summarize PA within minutes range corresponding to 12:00 AM - 6:00 AM
subset_12am_6am <- 1 : (6 * 1440/24)
summarize_PA(acc, acc_ts, wear_flag, valid_day_flag, subset_minutes = subset_12am_6am)
## Example 3
## Summarize PA without (i.e., excluding) minutes range corresponding to 11:00 PM - 5:00 AM.
subset_11pm_5am <- c(
(23 * 1440/24 + 1) : 1440, ## 11:00 PM - midnight
1 : (5 * 1440/24) ## midnight - 5:00 AM
)
summarize_PA(acc, acc_ts, wear_flag, valid_day_flag, exclude_minutes = subset_11pm_5am)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.