Scale a Series Using a Specific Value as Our Baseline

Question

Example series:

test <- data.frame(value = c(71,90,23,40,41), day = c(1,2,3,4,5))

Let\'s say I wanted to scale this short series normalized to