Nothing
new_STMr_vertical <- function(index, step, set, set_id, reps, adjustment, perc_1RM) {
scheme <- data.frame(
index = index,
step = step,
set = set,
set_id = set_id,
reps = reps
)
class(scheme) <- c("STMr_vertical", class(scheme))
scheme
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.