In MarijnJABoer/HeavySetR: A Heavyset Workout analysis package for R

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(HeavySetR)
library(knitr)

Simulate Data

df <- simData(100, 63)
kable(head(df))

Weekdays

plotTimespans(df)

Volume

plotVolume(df, group_workouts = FALSE, fit = "lm", facet = TRUE)

1 Rep Max

records <- getRecords(df)
knitr::kable(records)

OverheadPress <- records %>%
  dplyr::filter(exerciseName == "Overhead Press")

oneRM(r = OverheadPress[[2]], w = OverheadPress[[3]], method = "All", plot = TRUE)

MarijnJABoer/HeavySetR documentation built on May 22, 2019, 5:31 p.m.