README.Rmd

---
output: github_document
---

<!-- badges: start -->
[![CRAN status](https://www.r-pkg.org/badges/version/adeptdata)](https://cran.r-project.org/package=adeptdata)
[![](https://cranlogs.r-pkg.org/badges/grand-total/adeptdata)](https://cran.r-project.org/package=adeptdata)
[![](https://cranlogs.r-pkg.org/badges/last-month/adeptdata)](https://cran.r-project.org/package=adeptdata)
[![R-CMD-check](https://github.com/martakarass/adeptdata/workflows/R-CMD-check/badge.svg)](https://github.com/martakarass/adeptdata/actions)
<!-- badges: end -->

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
```

# adeptdata

Package `adeptdata` was created to host raw accelerometry data sets and their derivatives. Some of them are used in the corresponding `adept` package.

### Installation

Install from CRAN. 

```{r, eval = FALSE}
install.packages("adeptdata")
```

### Data objects

##### Object `acc_running` 

The `acc_running` data frame is a sample raw accelerometry data collected during 25 minutes of an outdoor run. Data were collected at frequency 100 Hz with two ActiGraph GT9X Link sensors located at left hip and left ankle. See `?acc_running` for details. 

```{r}
library(adeptdata)
head(acc_running)
lubridate::tz(acc_running$date_time)
```

##### Object `acc_walking_IU` 

The `acc_walking_IU` data frame is a sample of raw accelerometry data collected during outdoor continuous walking from 32 healthy participants between 23 and 52 years of age. Data were collected at frequency 100 Hz simultaneously with four wearable accelerometers located at left wrist, left hip and both ankles. See `?acc_walking_IU` for details. 

```{r}
head(acc_walking_IU)
```

##### Object `stride_template` 

The `stride_template` is a list containing walking stride pattern templates derived from accelerometry data collected at four body locations: left wrist, left hip, left ankle, and right ankle. See `?stride_template` for details. 

```{r fig.width=10, fig.height=5}
template <- list(stride_template$left_ankle[[2]][1, ],
                 stride_template$left_ankle[[2]][2, ])
par(mfrow = c(1,2), cex = 1)
plot(template[[1]], type = "l", xlab = "", ylab = "", main = "Left ankle: template 1")
plot(template[[2]], type = "l", xlab = "", ylab = "", main = "Left ankle: template 2")
```