Coan-Phillipi Deadlift Routine

coan-phillipi.R

max = 210

data.frame(
  work_wt = c(
    max * 0.750,
    max * 0.800,
    max * 0.850,
    max * 0.900,
    max * 0.800,
    max * 0.850,
    max * 0.900,
    max * 0.950,
    max * 0.975,
    max * 1.000
  ),
  work_reps = c(2, 2, 2, 2, 3, 2, 2, 2, 1, 1),
  work_sets = c(1, 1, 1, 1, 3, 2, 2, 2, 1, 1),
  speed_wt = c(
    max * 0.60,
    max * 0.65,
    max * 0.70,
    max * 0.75,
    max * 0.65,
    max * 0.70,
    max * 0.75,
    max * 0.70,
    max * 0.70,
    max * 0.60
  ),
  speed_reps = c(3, 3, 3, 3, 3, 3, 3, 3, 3, 3),
  speed_sets = c(8, 8, 6, 5, 3, 3, 3, 3, 2, 2),
  speed_rest = c(90, 90, 90, 90, 120, 120, 120, 120, 120, 120)
)