The ACWR package have been designed to calculate the the acute chronic workload ratio using three different methods: exponentially weighted moving average (EWMA), rolling average coupled (RAC) and rolling averaged uncoupled (RAU).
This is a basic example which shows you how to use the ACWR package:
library(devtools)
install_github("JorgeDelro/ACWR")
library(ACWR)
First, we have to load the data stored in the package
data("training_load", package = "ACWR")
# Convert to data.frame
<- data.frame(training_load) training_load
Then, we can calculate the ACWR:
<- ACWR(db = training_load,
result_ACWR ID = "ID",
TL = "TL",
weeks = "Week",
training_dates = "Training_Date",
ACWR_method = c("EWMA", "RAC", "RAU"))
Additionally, individual plot can be obtained:
<- plot_ACWR(db = result_ACWR,
ACWR_plot TL = "TL",
ACWR = "RAC_ACWR",
day = "Day",
ID = "ID")
Functions for each individual method have been implemented too:
# Select the first subject
<- training_load[training_load[["ID"]] == 1, ]
training_load_1
# EWMA
<- EWMA(TL = training_load_1$TL)
result_EWMA
# RAC
<- RAC(TL = training_load_1$TL,
result_RAC weeks = training_load_1$Week,
training_dates = training_load_1$Training_Date)
# RAU
<- RAU(TL = training_load_db_1$TL,
result_RAU weeks = training_load_1$Week,
training_dates = training_load_1$Training_Date)