geneactiv: GENEActiv Sample data

In jruwaard/emaph: The accompanying R package of the manual "Ecological Momentary Assessment in Mental Health Research"

Description

GENEActive accelerometer data, collected from two Dutch persons living in the Amsterdam area, in a one-week period.

Data were collected between 2018-06-01 and 2018-06-08, at 30Hz, with a GENEactive wrist-worn accelerometer. Data were down-sampled to 3Hz.

Usage

geneactiv

Format

A data frame with 14.753 observations on 4 variables:

id

Person id (integer)

timestamp

Datetime of measurement (POSIXct)

x

Acceleration on x-axis

y

Acceleration on y-axis

z

Acceleration on z-axis

light

Light sensor

temperature

Temperature in degrees Celcius

Source

https://www.activinsights.com/actigraphy/geneactiv-original/

Examples

# number of samples
nrow(geneactiv)

# number of assessments, per person
table(geneactiv$id)

# plot one hour of raw data, of person 1
library(ggplot2)
library(tidyr)
d <-  subset(geneactiv,
             timestamp > "2018-06-01 13:00" &
             timestamp < "2018-06-01 14:00" &
             id == 1)

d <- gather(d,
            key = "sensor", value = "value",
            x, y, z, temperature, light)

ggplot(d, aes(timestamp, value)) +
  geom_point(alpha = .3,  shape = 16, size = .5) +
  facet_grid(rows = vars(sensor) , scales = "free_y")

jruwaard/emaph documentation built on May 3, 2019, 8:04 p.m.