data-raw/test_package_functions.R

In durkeepk/sloper: Compute, extract, and visualize response-contingency slopes

library(sloper)

plot_slopes(sloper_exdat,
            response = "strength_rating",
            contingency = "t_measured_strength",
            yname = "Stregth Rating",
            xname = "Target Strength (Measured)",
            groupfactor = "ratersex",
            gflevels = c("Men", "Women"),
            linear = T)

newdata <- get_slopes(sloper_exdat,
                      response = "strength_rating",
                      contingency = "t_measured_strength",
                      compress = "rater")

psych::corr.test(subset(newdata))