# NOT RUN {
# }
# NOT RUN {
# Get old working directory
oldwd <- getwd()
# Set temporary directory
setwd(tempdir())
# Read dfs
data(list = c("basal_df", "MFO_df", "VO2max_df"), package = "MFO")
# Convert to data.frame
basal_df <- data.frame(basal_df)
MFO_df <- data.frame(MFO_df)
VO2max_df <- data.frame(VO2max_df)
# Calculate MFO and Fatmax
result_MFO <- MFO(step_time = 20,
db_MFO = MFO_df,
db_basal = basal_df,
db_graded = VO2max_df,
cv_var = "RER",
author = "Frayn",
VO2max = NULL)
# set user working directory
setwd(oldwd)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab