# NOT RUN {
# }
# NOT RUN {
# Get old working directory
oldwd <- getwd()
# Set temporary directory
setwd(tempdir())
# Read dfs
data("training_load", package = "ACWR")
# Convert to data.frame
training_load <- data.frame(training_load)
# Calculate ACWR
result_ACWR <- ACWR(db = training_load,
ID = "ID",
TL = "TL",
weeks = "Week",
days = "Day",
training_dates = "Training_Date",
ACWR_method = c("EWMA", "RAC", "RAU"))
# set user working directory
setwd(oldwd)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab