data(test_mockdata, package = "tma")
mock_data <- test_mockdata[test_mockdata$chatGroup == "PAM",]
unit_cols <- c("userID", "condition")
codes <- c("A", "B", "C")
HOO_rules_model <- rules(
modality %in% "chat" & chatGroup %in% UNIT$chatGroup & condition %in% UNIT$condition,
modality %in% "resource" & userID %in% UNIT$userID & condition %in% UNIT$condition
)
context_model <- contexts(
x = mock_data,
units = unit_cols,
hoo_rules = HOO_rules_model
)
str(context_model$model$contexts)
Run the code above in your browser using DataLab