usethis::use_data(kkelvin, kaff, kslope, kintercept, krev.slope,
                  krev.intercept, kcols, ktit_smpid, klab_smpid, overwrite=TRUE)
q()
y
