# NOT RUN {
# Read in a list of results
descriptives <- read_stats(system.file("descriptives.csv",
package = "tidystats"))
options(tidystats_list = descriptives)
# Report the mean
M("D4_avoidance")
M("D5_avoidance_anxiety", var = "avoidance")
# Report the standard deviation
SD("D4_avoidance")
# }
Run the code above in your browser using DataLab