# NOT RUN {
# }
# NOT RUN {
# Get old working directory
oldwd <- getwd()
# Set temporary directory
setwd(tempdir())
# Create path to store databases
dir.create(paste(getwd(),"/MFO_databases", sep = ""))
# Get path to databases
path <- paste(getwd(),"/MFO_databases", sep = "")
# MFOs function
# "path" is the path to the databases
MFOs <- function(from = "folder",
path = path,
db_basal_name = "basal_df",
db_MFO_name = "MFO_df",
db_graded_name = "graded_df",
step_time = 20,
cv_var = "RER",
author = "Frayn",
VO2max = NULL,
remove_rows = NULL,
col_name_VO2 = "VO2",
col_name_VCO2 = "VCO2",
col_name_RER = "RER",
col_name_HR = "HR",
save_plot = TRUE,
save_result = TRUE)
# set user working directory
setwd(oldwd)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab