data(RS.data)
codeNames = c('Data','Technical.Constraints','Performance.Parameters',
'Client.and.Consultant.Requests','Design.Reasoning',
'Collaboration');
accum = ena.accumulate.data(
units = RS.data[,c("Condition","UserName")],
conversation = RS.data[,c("Condition","GroupName")],
metadata = RS.data[,c("CONFIDENCE.Change","CONFIDENCE.Pre",
"CONFIDENCE.Post","C.Change")],
codes = RS.data[,codeNames],
model = "EndPoint",
window.size.back = 4
);
set = ena.make.set(
enadata = accum,
rotation.by = ena.rotate.by.mean,
rotation.params = list(accum$meta.data$Condition=="FirstGame",
accum$meta.data$Condition=="SecondGame")
);
ena.conversations(set = RS.data,
units = c("FirstGame.steven z"), units.by=c("Condition","UserName"),
conversation.by = c("Condition","GroupName"),
codes=codeNames, window = 4
)
Run the code above in your browser using DataLab