ExperimentNames=c("EUBAS","R1UCLM","R2UCLM","R3UCLM")
Metrics=c("Comprehension","Modification")
Groups=c("A","B","C","D")
Type=c(rep("4G",4))
StudyID="S2"
Control="SC"
# Obtain experimental data from each file and put in wide format
dataset2= KitchenhamEtAl.CorrelationsAmongParticipants.Scanniello14TOSEM
ReshapedData = ExtractExperimentData(dataset2, ExperimentNames=ExperimentNames,
idvar="ParticipantID",timevar="Period",ConvertToWide=TRUE)
ReshapedData[[1]]
# A tibble: 24 x 15
# ParticipantID ExperimentID.1 SequenceGroup.1 System.1 Treatment.1 Comprehension.1
#
# 1 1 EUBAS A S1 AM 0.77
# 2 5 EUBAS A S1 AM 0.61
# 3 9 EUBAS A S1 AM 0.61
# 4 13 EUBAS A S1 AM 0.52
# 5 17 EUBAS A S1 AM 0.43
# 6 21 EUBAS A S1 AM 0.77
# 7 2 EUBAS B S1 SC 0.92
# 8 6 EUBAS B S1 SC 0.63
# 9 10 EUBAS B S1 SC 0.51
# 10 14 EUBAS B S1 SC 0.64
# … with 14 more rows, and 9 more variables: Modification.1 , CrossOverID.1 ,
# ExperimentID.2 , SequenceGroup.2 , System.2 , Treatment.2 ,
# Comprehension.2 , Modification.2 , CrossOverID.2
Run the code above in your browser using DataLab