I have the following data:
dat<- structure(list(Pentad = 1:73, RR = c(0, 0.014285714, 0, 0.088571429, 0.071428571, 0, 0.065714286, 0.028571429, 0.09428571