# ---------------------------------------------------------
# Epley's model
m1 <- estimate_k_quantile(
perc_1RM = c(0.7, 0.8, 0.9),
reps = c(10, 5, 3)
)
coef(m1)
# ---------------------------------------------------------
# Epley's model that also estimates 1RM
m1 <- estimate_k_generic_1RM_quantile(
weight = c(70, 110, 140),
reps = c(10, 5, 3)
)
coef(m1)
# ---------------------------------------------------------
# Epley's model that also estimates 1RM
m1 <- estimate_k_1RM_quantile(
weight = c(70, 110, 140),
reps = c(10, 5, 3)
)
coef(m1)
# ---------------------------------------------------------
# Modified Epley's model
m1 <- estimate_kmod_quantile(
perc_1RM = c(0.7, 0.8, 0.9),
reps = c(10, 5, 3)
)
coef(m1)
# ---------------------------------------------------------
# Modified Epley's model that also estimates 1RM
m1 <- estimate_kmod_1RM_quantile(
weight = c(70, 110, 140),
reps = c(10, 5, 3)
)
coef(m1)
# ---------------------------------------------------------
# Linear/Brzycki model
m1 <- estimate_klin_quantile(
perc_1RM = c(0.7, 0.8, 0.9),
reps = c(10, 5, 3)
)
coef(m1)
# ---------------------------------------------------------
# Linear/Brzycki model thal also estimates 1RM
m1 <- estimate_klin_1RM_quantile(
weight = c(70, 110, 140),
reps = c(10, 5, 3)
)
coef(m1)
Run the code above in your browser using DataLab