apply_cole_kripke: Apply the Cole-Kripke algorithm

Description Usage Arguments Details Value References See Also Examples

View source: R/apply_cole_kripke.R

Description

The Cole-Kripke sleep scoring algorithm is primarily used for adult populations as the supporting research was performed on subjects ranging from 35 to 65 years of age.

Usage

1

Arguments

agdb

A tibble (tbl) of activity data (at least) an epochlength attribute. The epoch length must be 60 seconds.

Details

The original paper proposes three versions of the Cole-Kripke algorithm, optimized for 1-minute, 30-second and 10-second epochs. Here only the 1-min version is implemented and therefore the apply_cole_kripke function requires that the activity data is in 60s epochs. Use the collapse_epochs function to modify higher-frequency data, if necessary.

The Cole-Kripke algorithm uses the y-axis (axis 1) counts. First epoch counts are divided by 100 and any scaled counts over 300 are clipped to 300. This transformation is specific to ActiGraph devices. The sleep index (SI) is defined as

.001 * (106 * epoch_prev(4) + 54 * epoch_prev(3) + 58 * epoch_prev(2) + 76 * epoch_prev(1) + 230 * epoch + 74 * epoch_next(1) + 67 * epoch_next(2))

where at epoch t, epoch_prev(i) is the scaled activity count i epochs before t. Similarly, epoch_next(i) is the scaled activity count i epochs before t. That is, the algorithm uses a 7-epoch window which includes the four preceding and the two subsequent epochs. The time series of activity counts is padded with zeros as necessary, at the beginning and at the end.

Finally, the sleep state is awake (W) if the sleep index SI is less than 1; otherwise the sleep state is asleep (S).

Value

A tibble (tbl) of activity data. A new column sleep indicates whether each 60s epoch is scored as asleep (S) or awake (W).

References

RJ Cole, DF Kripke, W Gruen, DJ Mullaney and JC Gillin. Automatic sleep/wake identification from wrist activity. Sleep, 15(5):461–469, 1992.

ActiLife 6 User's Manual by the ActiGraph Software Department. 04/03/2012.

See Also

collapse_epochs, apply_sadeh, apply_tudor_locke

Examples

1
2
3
4
5
6
library("dplyr")
data("gtxplus1day")

gtxplus1day %>%
  collapse_epochs(60) %>%
  apply_cole_kripke()

oslerinhealth/actigraph.sleepr documentation built on May 25, 2021, 1:06 p.m.