olea %>% slice(1:5) %>% #for the sake of spped
calibrate_r2_opoly(degree.range=1:5, thresh=c(0.9, 0.99))
olea %>% slice(1:5) %>% #for the sake of spped
calibrate_r2_npoly(degree.range=1:5, thresh=c(0.9, 0.99))
Run the code above in your browser using DataLab