RAC {ACWR}

Rolling Average Coupled

Description

Rolling Average Coupled

Usage

RAC(TL, weeks, training_dates)

Arguments

TL

training load

weeks

training weeks

training_dates

training dates

Value

This function returns the following variables:

• RAC_chronic: RAC - chronic training load.

• RAC_acute: RAC - acute training load.

• RAC_ACWR: RAC - Acute-Chronic Workload Ratio.

Examples

## Not run: 
# Get old working directory
oldwd <- getwd()

# Set temporary directory
setwd(tempdir())

# Read db
data("training_load", package = "ACWR")

# Convert to data.frame
training_load <- data.frame(training_load)

# Select the first subject
training_load_1 <- training_load[training_load[["ID"]] == 1,  ]

# Calculate ACWR
result_RAC <- RAC(TL = training_load_1$TL,
                   weeks = training_load_1$Week,
                   training_dates = training_load_1$Training_Date)

# set user working directory
setwd(oldwd)

## End(Not run)