# NOT RUN {
ExperimentNames=c("EUBAS","R1UCLM","R2UCLM","R3UCLM")
ShortExperimentNames=c("E1","E2","E3","E4")
Metrics=c("Comprehension","Modification")
Type=c("4G", "4G", "4G", "4G")
Groups=c("A","B","C","D")
StudyID="S2"
Control="SC"
# Obtain experimental data from a file and put in wide format
dataset2= KitchenhamEtAl.CorrelationsAmongParticipants.Scanniello14TOSEM
ReshapedData=ExtractExperimentData(dataset2, ExperimentNames=ExperimentNames,
idvar="ParticipantID", timevar="Period", ConvertToWide=TRUE
)
ExtractGroupSizeData(ReshapedData, StudyID, ShortExperimentNames, Type, Groups=Groups)
# A tibble: 16 x 4
# Study Exp Group n
# <chr> <chr> <chr> <int>
#1 S2 Exp1 A 6
#2 S2 Exp1 B 6
#3 S2 Exp1 C 6
#4 S2 Exp1 D 6
#5 S2 Exp2 A 6
#6 S2 Exp2 B 6
#7 S2 Exp2 C 5
#8 S2 Exp2 D 5
#9 S2 Exp3 A 5
#10 S2 Exp3 B 5
#11 S2 Exp3 C 6
#12 S2 Exp3 D 6
#13 S2 Exp4 A 5
#14 S2 Exp4 B 5
#15 S2 Exp4 C 4
#16 S2 Exp4 D 4
# }
Run the code above in your browser using DataLab