# NOT RUN {
# Load example data
data("jz2017")
# Create table of profile results
res <- ssm_analyze(jz2017, scales = PA:NO, angles = octants(),
measures = c(NARPD, ASPD))
ssm_table(res)
# Create table of contrast results
res <- ssm_analyze(jz2017, scales = PA:NO, angles = octants(),
measures = c(NARPD, ASPD), contrast = "test")
ssm_table(res)
# }
Run the code above in your browser using DataLab