library(dplyr)
polar_small_multiples_data %>%
filter(ID_Measurement_Angle %in% c(0, 45, 90, 135)) %>%
normalize_observations(y_var = ID,
grouping_var = Tip_Bottom,
ref_values = c(0.2075, 0.2225))
Run the code above in your browser using DataLab